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.REM_ 
IDENTIFICATION 
PRODUCT ID: AC-TO97D-MC 
PRODUCT TITLE: CVTSCDO TSVOS CTRL PART 3 
DEPARTMENT : COMPUTER SPECIAL SYSTEMS/PGG 
DATE: JUNE 04, 1987 


THE INFORMATION IN THIS DOCUMENT IS wt we TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 


SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 


AFFILIATED COMPANIES. 
COPYRIGHT (C) 1983, 1987 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 000 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS IS A LSI-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A_ TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A LSI-11/23 SYSTEM 
(QBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT 
THIS PROGRAM CAN BE USED WITH XXDP-, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A ok he nt att OF THE RUNTIME SERVICES, REFER 
TO THE XXDP- USER'S MANUAL. THERE IS A BRIEF —_ OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


LSI-11 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC Pog sey sex WORDS OF MEMORY 

(28K USEABLE I.E. 4K FOR 1/0 PAGE) 

TSVOS Hg ne | SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP- ) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP- USERS MANUAL; DOCUMENT NUMBER AC-F348E -MC 
DATE: 14 JULY 19860. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS5-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 


DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 


DATE: AUGUST 1982 


SEQ 0003 


El 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL LSI-11 CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 

FUNCTIONAL DIAGNOSTIC LOADFR/MONITOR (XXDP- ) 

1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THe Tame BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAB AND CVTSBE HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 
PROCEED ont a ~ AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED ;° BE ACTIVE AT START TIME 
DROP DEACTIVATE A _UNIT 
PRINT PRINT STATISTICAL ag le Sa IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”, 


SEQ 0004 
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2.1.1 OPERATOR COMMANDS 


re TSVOS OTAGNOS TTC IS A LSI-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL_LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP- USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R VTSC?? 

DIAG. we Fiat SERVICES REV D. APR 79 
CVTSC-D0-0O 

art tart LOGIC DIAGNOSTICeess 

vt IS TSsvos 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY Vien eo OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED Loy WITH A BRIEF DESCRIPTION OF EA cH 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD” 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL Not BE ‘RUN. 
7PASS : DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 


IN SECTION 2.3. 
7EOP :DD000 REPORT END OF PASS MESSAGE wre Ray ot! 
DDDOD PASSES ONLY. (DODDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S/PASS: 1000/EOP : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
Sw CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE "/TES:1-S" INSTEAD OF “/TESTS:1-5". 
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BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
LEM UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

E E COMMAND UNL SET USING THE 


v4 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR+ INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’ 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR peaest STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 


Hi 


USER DOCUMENTATION 


MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 8 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 
2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?” 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN Mr ae USING THE SETUP Ae ae (SEE 
CHAPTER 6 OF — XXDP+ USER'S MANUAL). WHEN YOU ANSWER_THIS 
QUESTION WITH A "“Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


RUN ee THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSDB = 172520, VECTOR = 224 


ON A "“Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR bs SELECT THE UNITS TO . TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT “ THE QUESTION MARK IS _ THE 
DEF AULT ve THAT ae BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A_ DECIMAL NUMBER IS 
REQUIRED AS A_ RESPONSE. AN_ "(QO)" INDICATES AN OCTAL NUMBER IS BEING 
ag a anes THAT A LOGICAL RESPONSE IS TO BE MADE: 


@ UNITS (D) ?. <ENTER THE NUMBER OF M7455 CONTROLLERS 
ae PRESENT TO BE TESTED> 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “# UNITS?” QUESTION, LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER 


SEQ 0007 


11 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC r= 
OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 


THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK ey LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED pev ICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


He ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB- anaeke’ ATTACHED ig iT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG WITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE O OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (D) ? 8<CR> 


S (0) ?_ 160000<CR> 
SUB-DEVICE #@ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS ( 


0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ?_ 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 


SEQ 0008 


J1 
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Q-FACTOR (0) 0 2? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE #@ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 

6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THe HARDWARE PARAMETERS 
DO_NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


K1 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
oR THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


® UNITS (D) ? 8<CR> 
0) 
SUB - DEVICE @ 3° 


? 160000<CR> 
)?. 2-5<CR> 
2? O<CR> 


UNIT 7 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ 5°? ?. 6,7<CR> 

Q-FACTOR (0 . 


20? 1<CR> 
AS YOU = SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN ANY 


3 
z 
2 
na 
es 
3 
z 
x 
= 
4 
z 
4 


THE . DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY HE in)? ADOR 


NCE THEY WERE 
SPECIFIED IN THE THIRD P 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (D) 2? 8<CR> 


CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ £93 ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0,1.0,...1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


Li 
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2.7 QUICK START-UP PROCEDURE (XXDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP- 


2. oive THE DATE AND ANSWER THE LSI on SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4, TYPE "START" 

S. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THA A ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. NERAL RROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG iS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
pe 4 ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
va" NUMBER = N (N IS LAST UNIT IN PTABLE) 
T NUMBER = Test AND SUBTEST WHERE ERROR OCCURRED 
Pe: :XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT 4 ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


M1 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RET 
1 THE DIAGNOSTIC. THE FIRST PART DEFINES T 


HE IR_MNEMONICS FOR THE 
—— REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED OBND RECEIVED 


ret 016 FIFO aot aa TEST 
VTSC HRD ERR 016 


2 


12 


URNED 
TEST FUNCTION AND we THAT FAILED. 


16i0 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #6: - DESIGNATOR <BIT @> 


PARERR<15> IEOQT <12> IFMK <9> IRDY<6> 

IRESV2<14> IIDENT<11> IHER <8> IONL<5> 

IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 
APE BUS SIGINAL WORD 


09: 
DATMIS<7> ILW<6> OQUTRDY<S> INRDY<4> 
MESS BUFFER ADDRE 047352 


IRWD<2> 
IFBY<1> 
IFPT<O> 


WORD 1 EXPD: 000012 RECV: 000012 XOR: 000000 
#2 EXPD: 000000 RECV: 000000 xXOR: 000000 
#3 EXPD: o00038 RECV: 000010 xXOR: 000000 


i 
: 
: 


ERROR MESSAGE EXAMPLE 2 


THIS eB SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE 
INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE 


CONTROLLER MAY BE DEFECTIVE. 


0021 
TSSR BITS SET: SC,SSR 


ba ahh ON CLASS | CODE = UNRECOVERABLE ERROR 
PACKET WORD sd 149010 
PACKET WORD @ = 000010 
PACKET WORD @ = 000000 
PACKET WORD @ = 000024 


SEQ 0012 


Ni 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A 
REWIND WITH EXTENDED FEATURES MODE ENABLED. 


CVTSC HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND on FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 


SEQ 0013 


Bo 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END - EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER _OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (LSI-11) 


DR>STA/FLA:PNT : HOE 

UNITS (0D) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS _TWO 
Bares ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND "HALT ON 


TST: O01 a! Sh? TEST 

TST: O02 OFF-LINE R EJECT -: REWIND TEST 
TST: 003 BASIC WRITE DATA TEST 

TST: 004 BASIC READ DATA TEST 

TST: OOS SPACE RECORDS TEST 

TST: 006 REREADS TEST 

TST: O07 WRITE DATA RETRY TEST 

TST: 008 WRITE TAPE MARK TEST 


O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE “/PASS:" SWITCH. 


SEQ 0014 


Ce 
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PROGRAM RUN TIMES 


THE AVERAGE RUN ‘as OF THE PROGRAM ARE LISTED BELOW. a FIGURES ARE 
TO BE USED AS GUIDE. THE TIMING WAS DONE ON A LSI-11 
PROCESSOR WITH A LAS CONSOLE. 


THE PROGRAM RUNS IN TWO pore ITERATIONS AND DEFAULT MODE. IN _ THE 
NO ITERATIONS MODE, EAC Ver ts IS RUN ONCE, WITH NO ITERATIONS. IN IHE 
DEFAULT MODE EACH TEST IS "REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 


TEST N/I NUMBER DEF 
— SECS. ITER a . 


3 10 

3 8 
3 38 250 212 
4 60 300 249 
5 60 300 240 
6 120 360 240 
7 120 600 480 
8 22 90 68 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 


Q.V MINUTES 
DEF AULT 31 MINUTES 


SEQ 0015 


De 
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5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA Ws STACRT) COMMAND, 

bie REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGE HW (L) ? 


@ UNITS (D) 2? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION, LOGI 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A_START, REST®RT OR CONTINUE THE SUPERVISOR 
~ yng th CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


SEQ 0016 


EO 
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6.0 TEST SUMMARIES 


1: INITIALIZE #4 TEST 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 

CONT ROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.€. LOOPBACK ENABLED FORCING WRONG PARITY, INVERTING SENSE OF 
EXTENDED FEATURES CUES eH. ETC.) 


TEST 2: OFF-LINE AND REJECT REWIND 


THIS TEST a a “BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 


CHECK THE OPERATION OF THE REWIND COMMAND SINCE T 
comets REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 


TEST 3: BASIC WRITE DATA 


THIS weet by ig ae THAT THE WRITE DATA (NEXT) COMMAND OPERATES 

PR 7. THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 

WRITTEN “onto 1 HE TAPE CORRECTLY. CHECKING IN THIS TEST IS 

LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 

THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS 

- ania opnaiapaaneeceananoen dad ~~ >” Waka ensetae cae uearat etc peigtetr rani. 
The LSI BUS drivers for all available address lines( 16-21) 

ere only checked when running on a LSI-11 system with more than 

128K words of memory! 

SSSSSSSS SSS SS SSS SESS SSSSSSSESSESSSSSSSE SS SS HESS SS SSE SESE SSS SESE SESE SSEESES 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


THIS TEST VERIFIES THAT THE Read FORWARD AND READ REVERSE 

COMMANDS OPERATE ARTOUS COMB INATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 


ONG ECMO 
UFFER ADDRESSES, ILLEGAL CODES IN THE MODE or. 2 OF THE BASIC 
AD COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. 

ete? ae temo emepe coe: 
The LSI BUS drivers for all available address lines( 16-21) 

ere only checked when running on a LSI-11 system with more than 

128K words of memory! 

SSSSSSSSSS SSS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSESSS ESSEC ESSE SESSESES 


SEQ 0017 


FO 


USER DOCUMENTATION 
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TEST 5S: SPACE RECORDS 


THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 

RECORDS aevenst a etl COMMANDS OPERATE PROPERLY WHEN SPACING 

OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 

IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 

SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF ouares ts ee 


I 
OF VARYING SIZES AND DATA CONTENT: THE fiesT 4 MBYTES OF EACH 
REC TIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION. THE TAPE POSITION 1S VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 


TEST 6: REREADS 


THIS TEST ha iat oe THAT THE REREAD pn Bd as AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER an ae ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH RECORD 
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMORY 

enmnenepeaneegsaeaasenas -“” ; ~~ paaneaneaaeaneeneneneneaeaseneneans 


The LSI BUS drivers for all available address lines(16-21) 
are only checked when running on a LSI-11 system with more than 
128K words of memory! 

SSSSSSSSSSS SSS SSS SS SSS SSS SS SSS SS SSS SSH SSS SSS SSS SSSSS SSE SESE SES SESSESS 


TEST 7: WRITE DATA RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


TEST 8: WRITE/READ TAPE MARK 


THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
ey CHECKING THAT THE READ AND SPACE meconns See Detect THE 
TAPE MARK. IN SOOTY 10" SINCE WRITE TAPE MARK IS THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS yenty Te? 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND T 
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


SEQ 0018 


Ge 
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7.0 MAINTENANCE HISTORY 


REVISION A - JUNE 1983 


REVISION B - JUNE 1984 
UPDATED FOR NEW ORION CPU PROBLEMS, RELATING TO TIMEOUT 
ERRORS (#311 & #320) ON REWINDS. 
ELIMINATED CPU ID MESSAGE. 


REVISION C -_ JUNE 1985 
UPDATED TO PERFORM CORRECTLY WITH XXDP V2.1 EXTENDED 
MONITOR (DRSXM). 


REVISION D - APRIL 1987 
CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH 
THE NEW TSVOS MICROCODE (REVISION 2). THE NEW 
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE. 


845 .TITLE TSV2 - PROGRAM HEADER 
846 "SBTTL PROGRAM HEADER 
847 000000 PSECT ABS 
854 .MCALL SVC 
855 000000 svc ; INITIALIZE SUPERVISOR MACROS 
856 -ENABLE LC 
857 "NLIST BEX,CND 
863 000000 TENABL ABS.AMA 
864 002000 * =2000 
865 002000 BGNMOD TSV2 
002000 TSV2:: 
Be? 
3° 
868 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
869 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
ie 
7 
873 002000 POINTER BGNSW, BGNSFT BGNAU, BGNDU, BGNRPT 
874 002000 HEADER CVTSC.D0,0,655., 
002000 L$NAME: : OBTACNOSTIC NAME 
002000 103 ASCII /C/ 
002001 126 ASCII /V/ 
002002 124 ASCII /T/ 
002003 123 ASCII /S/ 
002004 103 ASCII /C/ 
002005 000 “BYT 
002006 000 BYTE 0 
002007 000 "BYTE 0 
002010 L$REV:: :REVISION LEVEL 
002010 104 .ASCII /D/ 
002011 L$DEPO: : 0 
002011 060 .ASCII /0/ 
002012 L$UNIT:: ;sNUMBER OF UNITS 


He 


TSV2 - PROGRAM HEADER 


PROGRAM HEADER 
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L$TIML:: 
L$HPCP:: 
L$SPCP:: 
L$HPTP:; 
L$SPTP:: 
L$LADP:: 
L$STA:: 
L$CO:: 

LSDTYP::* 
L$APT:: 
L$DTP:: 
L$PRIO: ; 
LSENVI:: 
L$EXP1:: 
LS$MREV:: 


SEEREEEELEEE 


.BYTE 

BYTE 
LSEF:: 
L$SPC:: 
L$DEVP:: 
LSREPP:: 
LSEXP4;:: 
LSEXPS: : 
L$AUT:; 
L$DUT:; 
L$LUN:: 
L$DESP:: 
L$LOAD::— 
LSETP:: 
L$ICP:: 


SES555555 85 


53 


sLONGEST TEST TIME 


655. 

sPOINTER TO H.W. QUES. 
L$HARD 

sPOINTER TO S.W. QUES. 
L$SOFT 

;PTR. TO DEF. H.W. PTABLE 
L$HW 

:PTR. TO S.W. PTABLE 
L$SW 

;DIAG. END ADDRESS 
L$LAST 
0 sRESERVED FOR APT STATS 
te) 
0 sDIAGNOSTIC TYPE 


;APT EXPANSION 
PTR. TO DISPATCH TABLE 
L$DISPATEH 
;DIAGNOSTIC RUN PRIORITY 
:FLAGS DESCRIBE HOW IT WAS SETUP 


sEXPANSION WORD 


;DIAG. EVENT FLAGS 


ooo nm Coc 8 8 
we 
D 
m 
< 
H 
Ww 
oe 


; POINTER TO DEVICE TYPE LIST 


L$DVTYP 
;PTR. TO REPORT CODE 
L$RPT 
te) 
(9) 
PTR. TO ADD UNIT CODE 
L$AU 
comes sPTR. TO DROP UNIT CODE 
0 ;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
sGENERATE SPECIAL AUTOLOAD EMT 
E$LOAD 
0 sPOINTER TO ERRTBL 


PTR. TO INIT CODE 


SEQ 0020 


Le 
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875 


022516 
023576 
023516 
022506 
000000 
000000 
000000 
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LSCCP:: 
L$ACP:: 
L$PRT:: 
LS$TEST:: 
LS$DLY:: 


L$HIME::° 


L$INIT 


; 
L$CLEAN 


L$AUTO 
L$PROT 
0 
te) 
0 


PTR. TO CLEAN-UP CODE 
sPTR. TO AUTO CODE 
;PTR. TO PROTECT TABLE 
; TEST NUMBER 

sDELAY COUNT 

;PTR,. TO HIGH MEM 


SEQ 0021 


Je 


TSV2 - PROGRAM HEADER 
DISPATCH TABLE 
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000003 
172520 
000224 
000200 
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-SBTTL DISPATCH TABLE 


i THE DISPATCH TABLE CONTAINS THE STAR 
; IT IS USED BY THE SUPERVISOR TO DISP 
Ba 


ros 
L$DISPATCH: : 
«WORD T1 
-WORD Te 
«WORD 13 
-WORD 14 
-WORD T5 
. WORD 6 
«WORD 17 
-WORD T8 


TING ADDRESS OF EACH TEST. 
ATCH TO EACH TEST. 


_SBTTL DEFAULT HARDWARE P-TABLE 
} THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


; THE TEST-DEVICE PARAMETERS. THE STRUC 


; IS IDENTICAL TO THE STRUCTURE OF THE 
ge 


TURE OF THIS TABLE 
RUN-TIME P-TABLE. 


BGNHW OFPTBL ;DEFAULT HARD-P-TABLE 
. WORD L10000-L $HW/2 

L$HW:: 

DOFPTBL:: 
‘ 172520 ; 1ST (OF 2) REGISTERS. 
WORD 224 ; INTERRUPT VECTOR 
.WORD PRIO4 ; INTERRUPT PRIORITY. 
ENDHW 

L10000: 


-SBTTL SOFTWARE P-TABLE 


; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
} PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


_ BGNSW SFPTBL 
L10001-L$sw/2 


L$SW:: 
SFPTBL:: 
TRANSTST:: . WORD t¢] 
NOITS:: WORD f?) 3 
7 
LERRMAX: : . WORD + B ; 
GERRMAX: : on -WORD 200. ; GLOB 
L10001: 
ENDMOD 


-TITLE TSV3 - GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD TSV3 


E_ TEST OF TRANSPORT(S) IF =1 


; ENABL 
INHIBIT ee OPTION. 


O = ITERA 


-NZ = INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 


AL (PER UNIT) ERROR LIMIT 


SEQ 0022 


Ke 
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-SBTTL GLOBAL EQUATES SECTION 


OBAL EQUATES Faden one ate <a PROGRAM EQUATES THAT 


; ARE USED IN MORE T 


; BIT OI 
61T15== 


éF - START 


EQUALS ; GET STANDARD EQUATES. 
FINITIONS 


FLAG DEFI 


; EVENT NITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


=s 32. s START ene WAS ISSUED 


EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 


EF .CONTI 
EF .NEW== 
EF .PWR== 
3 


} PRIORI 


NUE == 30. ; CONTINUE WA 
$3° ; A NEW PASS HAS BEEN STARTED 
. ; 


TY LEVEL DEFINITIONS 


A POWER-FAIL/POWER-UP OCCURRE 


SEQ 0023 


Le 
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GLOBAL. EQUATES SECTION 
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PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== O 

3 

sOPERATOR FLAG BITS 
évi== 4 
LOT== 10 
ADR== 

IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXE== 


HOE== 100000 
KT11 - 

.SBTTL MEMORY MANAGEMENT DEFINITIONS 

:*KT1] VECTOR ADDRESS 


MMVEC= 250 
3*#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


I 


. J 
s#USER “I” PAGE DESCRIPTOR REGISTERS 
77600 


UIPOR7= 177616 
;#USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 


-ENDC 
s#USER “I” PAGE ADDRESS REGISTERS 
UIPARO 640 


UIPAR2= 177644 
UIPARS= 177646 


sDEFINE MEMORY MANAGEMENT REGISTERS 


SEQ 0024 


Me 
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SEQ 0025 


UIPAR4= 177650 


-ENOC 

-IF NB 

s*SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172200 


.IF NB 
s*SUPERVISOR "D” PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 


ENDC 
*SUPERVISOR "I" PAGE ADDRESS REGISTERS 
gTPARO= 172240 


Ne 
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SEQ 0026 


-ENDC 
s*#KERNEL “I" PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 


172300 OR 
172302 KIPDR1= 172302 
2304 KIPDRe= 172304 
7 KIPOR3= 17 
172310 KIPOR4= 172310 
172312 KIPDRS= 172312 
172314 KIPOR6= 172314 
172316 KIPOR7= 172316 
.IF _NB 
s#KERNEL “D" PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPDR1= 172322 
KDPOR2= 172324 
KDPOR3S= 172326 
~- KOPDR4= 172330 
KDPORS= 172332 
KDPDR6= 172334 
oe 172336 
s*#KERNEL “I” PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3S= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 are 172356 
s#KERNEL “D" PAGE ADDRESS REGISTERS 
KDPARO= 17 


BS 


TSV3 - GLOBAL AREAS 
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951 
9 


000004 


000060 
177560 
177562 
177520 
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.SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


; SOME GENERAL EQUATES. 


ERRVEC== 4 
TTIVEC== 60 
TTICSR== 177560 
TTIBFR== 177562 
BDOVPCR== 177520 


;BIT DEFINITIONS FOR TSSR REGISTER 


T10 

HIADDR= BIT9!BITS 

BIT? 

BIT6 
FATERR= BIT4!BITS 
TERCLS= BIT3!BIT2!BIT1 
3° 
; 


XSOTMK= BIT1S 


XSOEOT= BITO 


sSPECIAL CONDITION 
;BUS_ INTERFACE ERROR 
sSANITY CHECK ER’ 


ROR 
sMODIFICATION REFUSED 


DATA 


sNONEXISTANT MEMORY ERROR 
;NEED BUFFER ADDRESS 


sEXTENDED ADDRESS BITS 


3SUB SYSTEM READY 
BIT 


s;OFF LINE 


sFATAL TERMINATION ERROR CODES 


; TERMINATION CODES 


BIT _ DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


TAPE MARK perey ree. 


sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 
sWRITE LOCK OR 


sILLEGAL COMMAND 


3;END 


POINTER TO ERROR VECTOR FOR BUS MS OUT. 
INTERRUPT VECTOR FOR CONSOLE INP 

BUS ADDRESS OF eas INPUT 

CONSOLE I BUFFER 
BDV11 PPE CONTROL REGISTER 


SEQ 0027 
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3° 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(XST1) 

X1.0LT = BIT15 ;DATA LATE 

X1.SPARE= BIT14 we altre 

X1.COR = BIT13 we RECTABLE DATA ERROR 

X1.MBZ = BIT12-BIT11-BIT10-B1IT9-BIT7- Ye BITS+BIT4-BIT3+BIT2-BITO ;ALWAYS O 
X1.RBP = BITS ;READ BUS PARITY ERROR 

X1.UNC = BIT1 sUNCORRECTABLE DATA OR HARD ERROR 

3? 

Rete -) esaahinanes FOR EXTENDED STATUS REGISTER 2 

3 

ted 

X2.0PM = BIT15 sOPERATION IN PROGRESS (TAPE MOVING) 

X2.RCE = BIT14 Cape CHECKSUM ERROR 

X2.SPARE= B817T13-B1IT12-B1711-BIT9-BITS8 :;NOT USED BY TSVOS CALWAYS=0) 
X2.WCF = BIT10 sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
X2.EXTF = BIT7 hIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT6 31F WRITE CHAR CMD THEN = BUFFERING ENABLED 
X2.REV = 000077 ;IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2- BIT1-BITO. ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
3° 

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

3(XST3) 

| Bag 

X3.MDE = 177400 ;MICRO- Py og BE ERROR CODE 

x3. SPARE= BIT7 sNOT USED BY vos 

X3.0PI = BIT6 } OPERATION INCOMPLETE 

X3.REV = BITS sREVERSE 

X3.TRF = BIT4 ; TRANSPORT RESPONSE FAILURE 

X3.DCK = BIT3 ;DENSITY CHECK 

X3.MBZ =BIT2-BIT1 ;NOT USED ALWAYS O 

X3.RIB = BITO sREVERSE INTO BOT 


iBT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
; 


X4.HSP = BIT1S sHIGH SPEED 

X4.RCE = BIT14 a Bes COUNT EXCEEDED 

X4.TSM = BIT13 He ANSPORT SPECIAL MODE 

x4.MBZ = BITl2- s61111-61 be OTR -GTTe Ler USED ALWAYS 0 
X4.WRC = 000377 ITE RETRY COUNT FIELD 


° 

sTSSR TERMINATION CODES (BIT 0-2) 

; 

_ 
TSREJ= 302 sCOMMAND REJECTED 
UNREC= 6 sUNRECOVERABLE ERROR 


SEQ 0028 
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SEQ 0029 
TSVOS REGISTER AND PACKET DEFINITIONS 


1059 3° 
1060 ; 
1061 sDEVICE REGISTER OFFSETS 
1062 ; 
1063 :- 
1064 
1065 000000 TSBA== O 
1066 000000 TSOB== O ;TSOB/TSBA REGISTER 
1067 000001 TSBAH== 1 
1068 000001 TSOBH== 1 :TSOB/TSBA REGISTER HIGH BYTE 
1069 000002 TSSR== 2 sTSSR REGISTER 
tore 000003 TSSRH== 3 ;TSSR REGISTER HIGH BYTE 
107 z° 
+073 ; TSOB ADDRESS BIT DEFINITIONS 
oon 000003 Ai7i6 = BIT1-BITO sADDRESS BITS 17:16 ARE IN 1:0 
1077 3¢ 
ete 4 ; COMMAND DEFINITIONS 
< 
080 000017 P .GETSTAT = 17 ;GET STATUS 
1081 000013 P.INIT = 13 ; INITIALIZE 
000012 P . CONTROL = 12 ls COMMANDS 
1083 000011 PLF AT = 11 iF 
1084 000010 P .POSITION = 10 POST TION 
1085 000006 P.WRTSUB = 6 ;SUBSYSTEM WRITE 
000005 P.WRITE = 5 ;WRIT 
1087 000004 P .WRTCHAR = 4 ;WRITE CHARACTERISTICS 
1088 000001 P .READ = 1 sREAD 
1089 
1090 i? 
1093 ; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
i 
1093 100000 P.ACK = BIT15 ;BUFFER AVAIL FOR CONTROLLER 
1094 040000 P.cVC = BIT14 ;CLEAR VOLUME CHECK 
1095 020000 P.OPP = Brits oy SE SEQUENCE OF DATA BITS 
096 010000 P. SWB = BIT1l2 8: AP BYTES IN MEMORY 
1097 007400 P.MODE = oz 13s 18TT20902 9!BITS ee COMMAND MODE FIELD 
1098 000200 P.IE = BIT7 NT T ENABLE 
1099 000140 P.FMT= BIT6:B1TS PACKET HEADER pin f CALWAYS=0) 
tor 000037 P.Ci”D = 37 sMAJOR COMMAND FIELD 
+ iad 
1108 ; CONTROL COMMAND MODE CODES 
:- 
1104 000000 PC .RELEASE = 0256. sRELEASE BUFFER 
1105 000400 PC.REWIND = 1256. sREW IND 
1106 001000 PC .NOOP = 29256. 3 
1107 002000 PC. IEREW = 42256. ;REW IND IMMEDIATE INTERRUPT 
1108 002400 PC. ERASE = 5*256. i SECURITY ERASE 
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SEQ 0030 


1110 ; 
11 + CONTROLLER RAM DEFINITIONS 
1113 000167 RMCHBEG = 167 ;CHARACTERISTICS I0 DATA BEGIN RAM ADDRESS 
1114 000200 RMCHEND = 200 ‘CHARACTERISTICS I0 DATA END RAM ADDRESS 
1115 000201 RMPKTBEG= 2C ;COMMAND PACKET BEGIN RAM ADDRESS 
1116 000210 RMPKTEND= 210 ;COMMAND PACKET END RAM ADDRESS 
1117 000315 RMMSGBEG= 215 }MESSAGE BUFFER BEGIN RAM ADDRESS 
1118 000234 RMMSGEND= 334 }MESSAGE BUFFER END RAM ADDRESS 
| Tid 
1120 
1121 ;REGISTER DEFINITIONS IN THE MESSAGE BUFFER 
113s ‘ 
1155 000006 XSTO== 6 EXTENDED STATUS REGISTER © (WORD 4) 
1136 000010 XSTl== 8, EXTENDED STATUS REGISTER 1 (WORD 5) 
1157 000012 XST2== 10, EXTENDED STATUS REGISTER > CWORD 6) 
1138 000014 XST3== 12. EXTENDED STATUS REGISTER 3 CWORD 7) 
+6 000016 XST4== 14, ;EXTENDED STATUS REGISTER 4 (WORD 8) 
1131 = 
1132 ; 
1138 }OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
1135 ; 
1137 000002 PKLOW = 2 ;LOW ORDER CHARACTERISTIC DATA POINTER 
1138 000004 PKHI = 4 HIGH ORDER CHARACTERISTIC DATA POINTER 
1139 000006 PKBCNT = 6 ;NUMBER OF BYTES IN DATA PACKET 
1141 000010 EXBCNT=10 ;NUMBER OF BYTES IN EXTENDED DATA PACKET 
1143 : 
1144 DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
" 
1146 000000 BSELO = 0 :BYTE 0 
1147 000001 BSELL = 1 ‘BYTE 1 
1148 000002 SEL2. = 2 ;WORD 2 
1149 000004 SELDATA = 4 ;WORD 3 
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SEQ 0031 
TSVOS REGISTER AND PACKET DEFINITIONS 

1151 
1152 ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
1154 bu. NOP = 0 ;NO-OP 
1155 000001 PW RDRAM = j ;READ RAM 
1156 000002 PW" WTRAM 22 }WRITE RAM 
1157 000003 PW RFIFO - 3 ;READ FIFO 
1158 PW" WFIFO = 4 WRITE F 
1159 000005 PW/RDSTAT 25 READ STATUS 
1160 PWLWCTL sé }WRITE TAPE CONTROL 
1161 000007 PW! WEMT : 7 }WRITE TAPE FORMAT 
1162 000010 PW WMISC = 10 ;WRITE MISCELLANEOUS 
1163 000011 PW: = 11 WRITE NPR CONTROL 
1164 20 PW D022 = 20 D0 MICROTEST 22 
1165 000021 PW:D11 = 51 D0 MICROTEST 11 
1166 000022 PW'D13 = 53 00 MICROTEST 13 
1167 000023 PW:NO1311 = 53 }DISABLE MICROTEST 11 AND 13 
1168 000024 Pw. = 54 READ EXT, TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
1170 ¥ 
1173 BSEL1 CODES FOR WRITE TAPE CONTROL 

- 
1173 000200 WC. IFAD = BII7 LIFAD - FORMATTER ADDRESS 
1174 000100 WC TOTAD = BIT6 }ITADO - TRANSPORT ADDRESS BIT 0 
1175 WC T1TAD = BITS }ITAD1 - TRANSPORT ADDRESS BIT 1 
1176 0000 WC |ISRESV = BIT4 ;IRESVS - RESERVED 05 
1177 000010 wc TREW =» BIT3 ;IREW  - REWIND 
1178 WC) TRWU = BIT? ;IRWU  - REWIND AND UNLOAD 
1179 WC IFEN = BITI ‘IFEN - FORMATTER ENABLE 
1189 000001 we: IGO = BITO ;G0 
1181 
1182 3° 
1183 }BSEL1 CODES FOR WRITE FORMAT 

“ 
1185 200 -IMISP = BIT? }IHISP - HIGH SPEED 
1186 000100 UF LIWRT = BIT6 TuRT - ~ WRITE 
1187 WF DIREV = BITS }IREV  - REVERSE 
1188 000020 uF IWEM = BIT4 ;IWEM - WRITE FILE MARK 
1189 000010 WF LIEDIT = BITS }IEDIT - EDIT 
1190 000004 UF “TERASE = BIT? ;IERASE - ERASE 
1191 000002 WF SI 3RESV = BITI FIRESV3 - RESERVED 03 
1132 000001 WF {T4RESV = BITO TIRESV4 - RESERVED 04 
1194 ” 
1195 }BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

ed 
1197 000200 AS EXT = BIT7 sINVERT, SENSE OF EXTENDED FEATURES SUITCH 
1198 000020 MS -RSFIFO = BIT4 ;RESET FIFO AND INPUT PARITY ERRORR 
1199 000010 MS _RSTAPE = BITS :RESET TAPE STATUS IN 2 FLIP-FLOPS 
1200 000006 MS_ATTN = BIT2!BIT1 } ATTENTION TRIGGER FIELD 
1501 000001 MSRSD = BITO ;RESET TIMER A.B THEN DELAY TIMES IN SEL2 


TSV3 - GLOBAL AREAS 
TSVOS REGISTER AND PACKET DEFINITIONS 


1203 
1 
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; MS.ATTN SUBCODES 


s- 
MSA.NOP = O#2 
MSA.VOL = l*2 
MSA.NRAM= 2*2 
MSA.FRAM= 3#2 


sNO-OP CNOTHING yt hag iP: 


3° 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


NP .IR = BIT7 
NP . OUT = BIT6 
NP .LOOP = BITS 
NP .WRP = BIT4 


s INTERRUPT REQUEST (0-1 


ier F -LINE Tromees tin 
;FORCE FATAL RAM ERROR (CAUSES sce TO SET) 


TRANSITION) 


; TAPE DATA DIRECTION OUT (O= IN) 


LOOPBACK 
;WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


3° 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


S2.0IM = BIT7 
-ILW = BIT6 
S2.OUTRDY = BITS 
S2.INRDY = BIT4 
S2.ATIMR = BITS 
S2.BTIMR = BITe2 
- UNDE = BIT1-BITO 
S$1.PARIN = BIT1S 
- T2RE = BIT14 
$1. I1RESV = BIT13 
$1.IEOT = BITl2 
$1. IIDENT = BIT1l 
$1.ICER = BIT10 
$1. IFMK = BITS 
. THER = BITS 
SO.ISPEED = BIT7 
. IRDY = BIT6 
I = BITS 
So. ILDP = BIT4 
$0. IDBY = BITS 
. IRWD = BIT2 
SO. IFBY = BITl 
SO.IFPT = BITO 


CUNDEF INED ) 
WORD #8 BYTE 1 


I 
WORD #8 BYTE 0 : 


sWORD #9 BYTE 2 tg MISS 


TIMER A FLAG H 
TIMER B FLAG H 


PARIN H 
I 


SEQ 0032 


H3 
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SPECIAL MACROS AND OPDEFS. 

1245 .SBTTL SPECIAL MACROS AND OPDEFS. 

1246 

1247 se 

1248 ;SAVE GENERAL REGS 1 TO 5S 

1249 i- 

1250 

1251 .MACRO SAVREG 

1252 JSR RS,REGSAV 

1253 .ENDM 

1254 

1255 3° 

1636 MACRO TO FORCE AN ERROR 

1258 MACRO FORCERROR TAG,NOTSSR 

1259 -NLIST 

1260 .IIF NOF LISTALL, .NLIST 

1261 LIST 

1262 ‘IF 8 NOTSSR 

1263 MOV TSSRCRS),R1 ;READ TSSR 

1264 .ENODC 

1265 MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 

1266 BNE TAG ;BR IF YES 

1267 -NLIST 

1268 -IIF NOF LISTALL, .LIST 

1269 -LIST 

1270 

1271 

1272 3° 

1273 ; MACRO TO FORCE AN ExIT TO AVOID SECTION ITERATIONS 

1274 : WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

1275 ; SO Fo FORCE ERRORS AND EXIT ON 1 ERROR SET 

1276 ; FORCER TO 177777 

127? ; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
_< 

1279 .MACRO FORCEXIT TAG 

1280 -NLIST 

1281 -IIF NOF LISTALL, .N_IST 

1282 -LIST 

1283 MOV FORCER,FORCER ;IS FORCER NEGATIVE? 

1284 BMI TAG ;BR IF YES 

1285 -NLIST 

1286 .IIF NOF LISTALL, .LIST 

1287 LIST 

1288 .E 

1289 :° 

1230 MACRO TO INCREMENT ERROR COUNTS 

1292 * MACRO NEXT . ERRNO 

1293 -NLIST 

1294 $33.11F NOF LISTALL, -NLIST 

1295 ERRNO=€: 

1296 ‘tbat .IIF NOF LISTALL, -LIST 

1297 
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SEQ 0034 
SPECIAL MACROS AND OPDEFS. 


% 


1300 z° 
1301 ;MACRO TO PERFORM XOR 
1302 :- 
1303 
1304 .MACRO XOR A.B 
1305 MOV A, -(SP) 
1306 BIC B. (SP) 
1307 BIC A‘B 
1308 BIS (5P)+,8 
1308 .ENDM 
1311 000000 EN=0 INITIALIZE ERROR NUMBER 
1312 “SBTTL FORCER - FORCE ERROR FLAG 
i3ia 
a 
1315 ; THE FOLLOWING LOCATIONS MAY BE PATCHED By THE USER 
1316 ; TO OBTAIN THE RESULTS DESCRIBED FOR EACH 
3 
1318 
1319 002166 000000 FORCER: : r) ; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
1320 ; - BY THE MACRO “IFERROR"). AN ERROR NEED NOT - 
1321 ; - EXIST, UUST ASSUME AND TYPE THE MESSAGE. 


J3 


TSV3 - GLOBAL AREAS 
GLOBAL DATA SECTION 


eed ed ed ded ed ded ded led ded et eet ed 


~ 
Ww 
2g 


1352 
+353 
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-SBTTL GLOBAL DATA SECTION 


i THE GLOBAL DATA as | TE CONTAINS DATA THAT ARE USED 
;IN MORE THAN ONE TEST 


; 
3; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-1ABLE. 


rereras: : 


e) 


Z 
g 


DOOOOE COOGOOOOOOOSSS 


aT SWITCH 

@ UNDER TEST. 
UT CK VERIFY FLAG. 
sADDRESS OF CSR FOR CURRENT DEVICE 
; INTERRUPT VECTOR 
2 ald a PRIORITY. 
sNUMBER OF TESTS RUN IN THIS PASS 
sREMAINING ITERATION oun FOR TEST 
sNUMBER OF DEVICE UNDER TEST 
iSET IF FATAL ERROR IS DETECTED IN TEST 
;SET IF TAPE INTERRUPT WAS RECEIVED 
;EXTENDED FEATURES SOFTWARE SW O=OFF;1=ON 
;REV = ( 1 = old microcode, 2= newmicrocode) 


sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
aon ADDRESS MEMORY ERROR 


LOW ADDRESS MEMORY ERROR 

iDATA READ FROM RAM PACKET ru ee BUF AREA 
AM DATA SIZE FOR PRAMPKT ROUTINE 

RECEIVED BUFFER HIGH ADDRESS 

eRe yet VED ag tA LOW ADDRESS 

sTEST COUNT PATTERN 


sPR TEMP 

SEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
; TEMPORARY STORAGE FOR PRINT 


SEQ 0035 


K3 
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TSTBLK - TEST DATA TABLE 
1365 .SBTTL TSTBLK - TEST DATA TABLE 
1366 
13e8 + 
8 
1368 ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
H 
1373 3IN SEQUENCE THE DATA IS: 
D 
1373 : ALL ZEROS 
1374 ; 
1375 : WALKING ONES 
1376 ; WALKING ZEROS 
1377 ; ALTERNATING ONES AND ZEROS 
1378 ; 
1379 :- 
1380 
1381 002744 TSTBLK: : 
1382 002744 . WORD ;ALL ZEROS 
1383 002746 177777 .WORD 177777 ;ALL ONES 
002750 1 “WORD BITO ;DATA FOR WALKING ONES 
1385 002752 000002 [WORD BIT1 
1386 002754 [WORD BIT2 
1387 002756 000010 .WORD ®BI1T3 
1 002760 0000 .WORD B1T4 
1389 002762 [WORD BITS 
1390 002764 000100 -WORD B1T6 
1391 766 000200 ‘WORD ®BI1T7 
1392 002770 000400 “WORD BITS 
1393 002772 001000 .WORD BITS 
1394 002774 2000 :WORD ®81T10 
1395 002776 “WORD BIT11 
396 00 010000 .WORD BI1T12 
1397 003002 020000 -WORD 81713 
1398 003004 .WORD 61714 
1399 00 .WORD 61715 
1400 003010 177776 "WORD tCBITO ;DATA FOR WALKING ZEROS 
1401 003012 177775 “WORD tCBITL 
003014 177773 "WORD  ‘tCBIT2 
1403 003016 177767 ;WORD ‘tCBIT3 
1404 003020 177757 ;WORD tCBIT4 
1405 003022 177737 "WORD tCBITS 
003024 177677 “WORD  tCBIT6 
1407 003026 177577 :WORD ‘tCBIT7 
1408 003030 177377 “WORD tCBITS 
003032 176777 ;WORD ‘*tCBITS 
1410 003034 175777 "WORD  tCBIT10 
1411 003036 173777 "WORD *tCBIT11 
1412 003040 167777 .WORD *tCBIT12 
1413 003042 157777 :WORD ‘tCBIT13 
1414 003044 137777 “WORD ?tCBIT14 
1415 003046 077777 .WORD *tCBITIS 
1416 003050 . WORD 125252 sALTERNATING ONES, ZEROS 
1417 003052 052525 WORD 052 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


1418 003054 TBLEND==. 
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GLOBAL ENVIRONMENT STORAGE 


003170 


9 
003370 


003372 


000000 100000 000000 
000000 000000 000000 


177777 
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SEQ 0037 


-SBTTL GLOBAL ENVIRONMENT STORAGE 
Q 
sSTORAGE FOR DEVICE REGISTERS 
5 
DUMMY ; 8°3°8°o" 0,0 


ERROR STATISTICS TABLE 


8 
3 100000 
F 10XXxXxX 
3 160000 
3 


160001 
: 14XXXX 


G5555 SSSSSEEE 3 5 


0,6,6,0,0 


sDUMMY DEVICE REGISTERS... 
.-FOR MULTI-UNIT CHECKOUT. 


"DROPPED UNIT” FLAG. 
;INHIBITS CODE IN we. UP". 
sFLAG TO SAY NO DEVICE 


;SOME TEMP LOCATIONS. 


:XXDP-_ COMM BLOCK POINTER. 
1ST FREE MEMORY ADDRESS... 
AND SIZE (IN WORDS). 
:LAST WOR in FREE SPACE 
KT11, MEM AVAIL FLAG - 
- © = <24K OR NO KT - 
}- NZ = >24K AND KT. 
‘SET BY TEST ROUTINES 10 FLAG >28K UNDER TEST 
We CAN TEST CLEARED OTHERWISE 
NxM LO ADDRESS 


Weare © ©0000 © © + 
a4 
i 
nm 


to 
:32W BLOCK ADDRESS FOR 32K START 


} ACTUAL DATA 
s;EXPECTED DATA 


sCONFIGURATION TABLES. 
sCONFIG WORK. 


'oooo ooo°o 


1 sEND OF MEM TABLE. 
(1 WORD PER UNIT), 64 UNITS MAX: 


UNIT NOT TESTED 
UNIT ONLINE, NO ERRORS 

INE, ENCOUNTERED XXXX ERRORS 
UNIT DROPPED, NON- exis tout DEVICE REGISTER 
UNIT DROPPED, NOT IDLE AT STAR 
UNIT DROPPED, ENCOUNTERED UXK ERRORS 


31=SKIP SUBTEST O=NO SKIP OF SUBTEST 


M3 
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GLOBAL TEXT MESSAGES 


124 
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123 


oS2 


040 
101 


126 


0S2 


SEQ 0038 


\SBTTL GLOBAL TEXT MESSAGES 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 
goo 
;NAMES OF DEVICES SUPPORTED 
‘ DEVTYP <TSVOS> 


L$DVTYP: 
"ASCIZ /TSVOS/ 
- EVEN 


3? 
TEST DESCRIPTION 
, DESCRIPT <##** TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR ¢#ees> 


L$DESC:: 
a /**e* TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR #ee0/ 


3° 
;BIT TO ASCII CONVERSION FOR TSSR REGISTER 
+SSRBIT: : 


-WORD 14,2$,3%,4%,5$,6%,7$,8$ 
-WORD 9$,10$,118,12¢/138,148,15$,16$ 

1$: ASCIZ ‘SC’ 

2s: ASCIZ ‘BIE’ 

3$: ASCIZ ‘SCE’ 

4$: ASCIZ ‘RMR’ 

S$: ASCIZ ‘NXM’ 

6$: ASCIZ ‘NBA’ 

7$: -ASCIZ ‘PITS’ 

8$: -ASCIZ ‘BITS’ 

9$: ASCIZ ‘SSR’ 

10$: -ASCIZ ‘OFL' 

11$: ASCIZ ‘BITS’ 

12$: ASCIZ ‘BIT4' 

13%: -ASCIZ ‘BITS’ 

14$: -ASCIZ ‘BIT2' 

15%: ASCIZ ‘BIT1' 

16%: oe ‘BITO' 

SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 

SF HE! -ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 

NXR : -ASCIZ / _NON-EXISTANT DEVICE REGISTER/ 

NXR -ASCIZ SS: #06/ 


ADORE 
TSBA,TSSR EXP’D: 


/#A 
/#A S068A , S068N/ 
TSBA,TSSR REC'D: #068A,806/ 


FUSI: -ASCII /sNSA/ 

USI: -ASCIZ / UNEXPECTED INTERRUPT/ 

NSI; -ASCIZ / INTERRUPT eae eer NOT RECEIVED/ 
FNOINTR: -ASCII /sNsA 

NOINTR: .ASCIZ 7 NO INTERRUPT WAS GENERATED/ 
IFAULT: .ASCIZ / INTERRUPT FAULT/ 

INTX; -ASCIZ /#A CPU PC: 068A TSBA: #06/ 


N3 
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SEQ 0039 
GLOBAL TEXT MESSAGES 
1546 004335 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DION’ T INITIALIZE CONTROLLER? 
1547 004407 040 040 042 NSINIT: .ASCIZ / “SOFT-INIT” DION'T INITIALIZE THE DPU/ 
1548 004457 040 040 042 BRINIT: .ASCIZ / “"“BUS-RESET” DION'T INITIALIZE THe DPU/ 
1549 004527 000 : -ASCIZ // 
1550 0045 045 116 000 CR: ASCIZ /sN/ 
1551 004533 045 101 040 EXPGOT: .ASCIZ /#A EXP'D: #068A, REC'D: #06/ 
1552 004567 045 116 045 EXPGT2: .ASCIZ /#NSA EXP’D: 6068A, SO6SNSA REC'D: SOSA, 806/ 
1553 045 101 040 DUADI2: .ASCIZ /#A REGCW) WRITTEN TO: #068A REG(R) READ; EXP’ D: S068A, REC'D: #06/ 
1554 004745 122 101 115 PKTRAM:: sete ‘RAM Contents Do Not Match Pocket Sent’ 
1555 005013 040 040 103 SCME: ASCIZ CONFIG DOESN’ T “MATCH MFG. MASTER/ 
1556 0050 127 122 111 WRTMSG: .ASCIZ “watTe CHARACTERISTICS Failed’ 
1557 005113 124 123 123 WRTERR: .ASCIZ eb Incorrect After WRITE Command, More Bits Set Than SSR’ 
1558 00 124 123 123 RDERR ASCIZ TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
1559 005 106 101 124 SCHERR: .ASCIZ HERTAL ERROR IN SUBTEST - CHECK TAPE, CABLES RANSPORT etc. 
1560 005372 105 122 122 RETERR: .ASCI "ERROR IN SUBTEST - WRITE DATA > Mg FIVE Ties F FAILED’ 
1561 045 116 045 NOMEM: ASCIZ ‘'sNsA *¢e¢« NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. ####435N’ 
1562 005554 045 116 045 M8186: .ASCIZ ‘SNSA eeeeeeeeeceeeeses 11/23A SYSTEM eeeeceseseeeeeseesN’ 
toes S645 045 116 045 M8189: tae 'SNSA teeeeeecesesesese 11/238 SYSTEM teeeceseseseceseesN’ 
1363 SBTTL GLOBAL ERROR REPORT SECTION 
1567 
1568 “THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
1569 ; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
tare , : ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
g7e 

1572 005736 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 

005736 NXRERR: : 
1573 005736 PRINTX #@NXRX,NODEV sNODEV = NEXM ADDRESS. 

005 013746 003106 MOV NODEV, -C SP) 

005742 012746 003777 MOV @NXRX, -C SP) 

005746 012746 000002 MOV I =(5P) 

00S752 01 MOV 

005754 104415 TRAP eSPNTX 

005756 0627 000006 ADD #6,SP 
1574 005762 004737 005770 JSR PC ,EXTEND s PRINT EXTENSION IF REQUIRED. 
1575 005766 

005766 L10002: 
1576 005766 104423 TRAP C$MSG 

8 

1 : THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
1378 3 TO ANY OF THE ABOVE ERROR SIGNATURES. 
1580 005770 005727 EXTEND: TST (PC)- 
1581 005772 EXTA: t¢] 3 O = NO EXTENSION. 

005774 001402 BEQ 1% 
1583 005776 004777 177770 JSR PC, @EXTA 3 APPEND EXTENSION TEXT. 

006002 1$: PRINTX CR 3; PRINT A BLANK LINE 

006002 012746 004530 MOV @NULCR, -C SP 

006006 012746 MOV #1,-(SP) 

006012 01 MOV SP ,RO 

006014 104415 TRAP = C$PNTX 

006016 7 000004 ane + Saal 
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- PRINT TSSR CONTENTS 


000054 


002624 
006700 


177777 


iad 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 


;ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
;THE TSSR REGISTER, THIS ROUTINE IS NORMALLY CALLED ONLY 
;BY A MESSAGE PRINTING ROUTINE 


; 
s INPUTS: 
; 
; 


Ri CONTENTS OF TSSR 


} SUBORDINATE ROUTINES: 


CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 
SAVREG ;SAVE GENERAL REGISTERS 
MOV R1,R4 ;SAVE THE TSSR CONTENTS 
PRINTB #TSSRFOR,R4 ;PRINT THE CONTENTS OF TSSR 
MOV R4,-(SP) 
MOV @TSSRFOR, -(SP) 
MOV #2,-(SP) 
MOV SP; RO 
TRAP C$PNTB 
ADD $6 ,SP 
MOV R4,RO ;GET TSSR BACK FOR CHKAMB 
JSR PC; CHKAMB ;ARE CONTENTS AMBIGUOUS ? 
BCS 5$ ;BRANCH IF NOT 
PRINTX @AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 
MOV #AMBTSSR, -(SP) 
Mov al. - age? ) 
TRAP eR BNTX 
ADD 64, SP 
S$: MOV R4:R3 ;CONTENTS OF TSSR 
BIC HEADDR !FATERR! TERCLS RS ;CLEAR ALL MULTIPLE BIT FIELDS 
BEQ 20% NO Bits T 
MOV OTMPBFR,R TEMEORARY ASCII BUFFER 
MOV STSoRBIT A ;ASCII EQUIVALENT OF BITS 
10$: TST R3 ;REMAINING BITS TO CONVERT 
BEQ 15% BRANCH ALL ARE DONE 
cLC ;CLEAR CARRY FOR SHIFT 
ROL R3 ;SHIFT NEXT BIT TO CARRY 
Bcc 13% ;BRANCH IF BIT NOT SET 
MOV (R1),RO ;POINTER TO BIT DEFINITION 
11s: MOVB (RO)+,(R2)+ }MOVE ASCIZ TO BUFFER 
BNE i1$ ‘MOVE ALL BITS 
MOVB = @’' , -1(R2) SINSERT A COMMA TO TERMINATE 
134: TST CRi)- ;POINT TO NEXT DESCRIPTION 
BR 10$ ;GET THE REMAINING BITS 
15$: CLRB -(R2) ; TERMINATE THE LINE 
PRINTX @TSSOEF,@TMPBFR ;PRINT THE BIT DEFINITIONS 
MOV OTMPBFR. -(SP) 


MOV @TSSDEF , -(SP) 


SEQ 0040 





C4 
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PRITSSR - PRINT 


1647 
1648 


1649 


TSSR CONTENTS 
012746 000002 


062706 000006 


042703 177761 
016303 006770 


012746 006570 
000002 


062706 000006 
042703 177717 


0062 
016303 007330 


346 
012746 006631 
012746 000002 
010600 


000006 
042704 176377 


010446 
012746 006527 
012746 000002 
010600 


104415 
062706 000006 
013703 002170 
010346 
012746 000001 
010600 
104415 
062706 
000207 


20$: 


25$: 


30$: 


MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 32-1 


$8365" 
C$PNTX 
#6, SP 


R4,R3 
@tCTERCLS,R3 
TCOCOD(R3),R3 
#TCOASC ,R3 
R3,-(CSP 
#TCOASC, -(SP) 
#2, -(SP) 
SP.RO 


C$PNTX 
#6 ,SP 


R4,R3 
@tCFATERR,RS 
25% 

R3 

R3 


R3 
TSFCODCR3),R3 
@TFCASC,R3 


R3,-(SP) 
OTFCASC 
#2. -(SP) 
CsPNTX 
#6 ,SP 
@tCHIADOR ,R4 
30$ 
STEXASC,R4 
R4,-(SP) 
@TEXASC, -(SP) 
#2, -(SP) 
SP‘RO 
EPRTSW,R3 

R3 

R3,-(SP) 
bias 
C$PNTX 


04 ,SP 
PC 


-CSP) 


:GET THE TSSR_ CONTENTS 

s;CLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
;PRINT THE TERMINATION CODE 


sTSSR_ CONTENTS AGAIN 
;CLEAR ALL BUT FATAL TERMINATION 
sDON'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
;GET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


;CLEAR ALL BUT EXTENDED ADDRESS 
:DON'T PRINT IF ZERO 
sPRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


SEQ 0041 


D4 
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PRITSSR - PRINT TSSR CONTENTS 
1661 pso$4 24 045 116 045 ah EY -ASCIZ ‘SNA #eeeeCHECK CABLES BETWEEN M7196 AND TRANSPORT+sse#' 


SEQ 


1662 045 116 045 EPRT2: .ASCIZ ‘NSA #ee¢eCHECK TRANSPORTeesss’ 

1668 006507 045 116 045 TSSRFOR: .ASCIZ ‘sNSA TSSR = #806’ 

1669 006527 045 116 045 TEXASC: -ASCIZ ‘sSNA Extended Address Bits = #06’ 
1670 006570 045 116 045 TCOASC: -ASCIZ ‘sSNA Termination Class Code = sT’ 
1671 006631 045 116 045 TFCASC: -ASCIZ ‘'sNSA Fatal Termination Class Code = sT’ 
1672 006700 045 116 045 TSSDEF: ASCIZ 'sNsA TSSR Bits Set: s#T' 

+873 006727 045 116 045 AMBTSSR e ASCIZ ‘sNsSA TSSR Contents Are Ambiguous’ 
1675 006770 007010 007033 007061 TCOCOD: .WORD 1$,2$,3%,4$,5$,6$,7$,8$ 

1676 007010 116 157 162 1: -ASCIZ ‘Normal Termination’ 

1677 007033 124 145 162 2 -ASCIZ ‘Termination Condition’ 

1678 007061 124 141 160 3$ -ASCIZ ‘Tape Status Alert’ 

1679 007103 106 165 156 4$: -ASCIZ ‘Function Re ject’ rh 

1680 007123 122 145 143 «58: -ASCIZ ‘'Recoverable Error - Tape Position One Record Down’ 
1681 007205 122 145 143 6$: -ASCIZ ‘Recoverable Error - Tape Was Not Moved’ 
1682 007254 125 156 162 7$: -ASCIZ ‘Unrecoverable Error’ 

1683 007300 141 164 8S: -ASCIZ ‘Fatal Controller Error’ 

1e85 .EVEN 

1686 007330 007340 007374 007405 TSFCOD: . 1$,2$,3%,4$ 

1687 007340 111 156 164 18: "ASCIZ ‘Internal Diagnostic Failure’ 

1688 007374 122 145 163 2$ -ASCIZ ‘Reserved’ 

1689 007405 102 165 163 3$ -ASCIZ ‘Bus Interface or Sanity Check Error’ 

1690 007451 122 145 163 4$ .ASCIZ ‘Reserved’ 


E4 
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SEQ 0043 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
i833 .SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
1695 - 
1696 ;THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
1697 THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 
1699 PINPUT: 
1700 ; 
1701 ; RO NUMBER OF WORDS IN PACKET 
1702 ; R3 HIGH ORDER COMMAND PACKET ADDRESS 
1708 : R4 ADDRESS OF COMMAND PACKET 
; 
1705 ; NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
= 

1707 
1708 007462 PRIPKT: : 
1709 007462 SAVREG :SAVE THE REGISTERS 
1710 007466 010005 MOV RO,RS ;SAVE NO. OF WORDS IN PACKET 
1711 007470 005737 003126 TST KTENABLE ;ABOVE 28K UNDER TEST? 
1712 007474 001001 BNE 10$ ;BR IF YES 
1713 007476 005003 CLR R3 ;SET HIGH ORDER ADDRESS TO 0 
1714 007500 010301 10$: MOV R3,R1 ; COPY HIGH ORDER ADDRESS 
1715 007502 010400 MOV R4:RO :GET LOWER ADDRESS 
1716 007504 006100 ROL RO SHIFT Ott 15 INTO C BIT 
1717 007506 006101 ROL Rl AND INTO HIGH ORDER 
1718 007510 PRINTB @PKTADD,R1.R4  |;PRINT PACKET ADDRESS 

007510 010446 MOV R4,-(SP) 

007512 010146 MOV R1,-(SP) 

007514 012746 007646 MOV OPKTADD, -( SP) 

007520 012746 000003 MOV 63,-(SP) 

007524 010600 MOV SP; RO 

007526 104414 TRAP C$PNTB 

007530 062706 000010 ADD #10,SP 
1719 007534 010300 15$: MOV R3,RO :GET HIGH ORDER ADDRESS 
1720 007536 001404 BEQ 203 ;BR IF NOT ABOVE 28K. 
1721 007540 010401 MOV R4,R1 ;GET LOW ORDER ADDRESS 
1722 007542 004737 017436 JSR PC: SETMAP }SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
1723 007546 010004 MOV RO.R4 ;GET RETURNED PAR6 ADDRESS BIAS 
1724 007550 20%: CLR R1 SAVE WORD NUMBER 
1725 007552 012402 25$: MOV (R4)-,R2 ;GET PACKET CONTENTS 
1726 007554 PRINTB @PKTFRM,R1,R2 ;PRINT THE DATA 

007554 010246 MOV R2,-(SP) 

007556 010146 MOV R1,-(SP) 

007560 012746 007610 MOV OPKTFRM, -( SP) 

007564 012746 000003 MOV 03,-(SP) 

007570 010600 

007572 104414 TRAP CSPNTB 

007574 062706 000010 ADD #10,SP 
1727 007600 005201 INC Ri ;NEXT WORD NUMBER 
1728 007602 020105 CMP R1,R5 ;DONE ALL PACKET WORDS? 
1729 007604 002762 BLT 253 :L.OOP TILL ALL DONE 
1730 007606 000207 RTS PC ;RETURN 
1732 007610 045 116 045 PKTFRM: .ASCIZ ‘sSNSA Packet Word OsDISA = #06’ 
1733 007646 045 116 045 PKTADD: -ASCIZ 'SiNSA Packet Address = #01805’ 


F4 


TSV3 - GLOBAL AREAS 
PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


1755 007722 012700 177400 
040001 


007742 012746 007766 
000004 
007756 062706 000012 


62 
1 Ls 007766 045 116 045 


1782 010040 010203 
1784 010052 


. SBTTL 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
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PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


_— ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


VINPUTS: 

3 

3 R1 
3 R2 


- EVEN 
- SBTTL 
+ 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


sf a ;EXPECTED DATA 

;FORM THE EXCLUSIVE OR 
art<377>, RO ;BYTE MASK 
RO,R1 ;SAVE LOW BYTE RECV 
RO,R2 sSAve LOW BYTE EXPD 


RO,R3S € LOW BYTE XOR 
@XORBEOR. R2,R1, ris SPRINT THE MESSAGE 


R3,RO ;RO HAS XOR ON RETURN 
PC ;RETURN TO CALLER 


-ASCIZ ‘sNsA EXPD: #038A RECV: #O038A XOR: #03’ 


PRIXOR - PRINT EXPD, RECV AND XOR 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR 


sTHIS ROUTINE IS 


; 
s INPUTS: 
; 


R1 


3 
3 R2 
; OUTPUT: 

: RO 


BRIXOR 23 
SAVREG 
MOV 


xOR 
PRINTB 


OF THE TWO 
NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


;SAVE THE REGISTERS 

R2, a fa ED DAT 

R1.R FORM THE O XCLUSIVE OR 
SXORFOR, R2,R1,R3';PRINT THE MESSAGE 


SEQ 0044 


G4 


TSV3 - GLOBAL AREAS 


PRIXOR - PRINT 


e) 
1785S 010100 
1786 010102 


1787 
1788 010104 
1789 


EXPD, RECV AND XOR 
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010104 
000004 
000012 


116 


MOV R »-C( SP) 
MOV @XORF OR, -( SP) 
MOV 04,-(SP) 
SP RO 
TRAP CsPNTB 
#12,SP 
MOV R3,RO ;RO HAS XOR ON RETURN 
RTS PC ;RETURN TO CALLER 


04S XORFOR: Pore ‘sNSA EXPD: s068A RECV: 068A XOR: #06’ 


SEQ 0045 


H4 
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PRIEQU 


010152 


806 010152 


010156 


010210 


000207 
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- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


010210 
000002 


000006 


116 


045 


SEQ 0046 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
ind 


} ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


} INPUTS: 

: RO OCTAL VALUE TO CONVERT 

: Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

; 

£ 

PRIEQU: 
SAVREG ;SAVE THE REGISTERS 
RTS PC RETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
3° 


;PRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; 
3; INPUTS: 
7 
: R4 RAM ADDRESS 
. 
i. 
PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB #RAMFOR,R4 ;PRINT RAM ADDRESS IN ERROR 
MOV R4,-(SP) 
MOV ORAMFOR, - (SP) 
MOV #2,-(SP 
Vv SP ‘RO 
TRAP CsPNTB 
ADD 96,SP 
RTS PC ;RETURN 


RAMF OR : iy ‘NSA CONTROLLER RAM ADDRESS = #06’ 


14 


TSV3 - GLOBAL AREAS 
PRIADD - PRINT MEMORY ERROR ADDRESS 


1842 010256 013700 002230 
1843 010262 013701 002232 


0046 
012746 010322 
000003 


010314 062706 000010 
0320 


849 
1859 010322 045 116 045 


1866 366 
1867 010372 013702 002230 
1868 010376 013701 002232 


010404 012746 010450 
000002 


. SBTTL 
$°¢ 


NT MEMORY 
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PRIADD - PRINT MEMORY ERROR ADDRESS 


;PRI ADDRESS 
}THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
} IMPLICIT INPUTS 


ERRHI 
ERRLO 


3 

8 

3 

F 

3 

bad 

PRIADD: 
SAVREG 


PRIAO: .ASCIZ 
- EVEN 


.SBTTL 
3° 


NT MEMORY 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


;SAVE R1-RS UNTIL NEXT RETURN 


ERRHI,RO ;GET HIGH ADDRESSS 

ERRLO,R1 ;GET LOW ADDRESS 

R1,R2 ;COPY LOW ADDRESS 

R1 sSHIFT BIT 15 TO C BIT 
;SHIFT INTO HIGH ORDER 


;PRINT MEMORY ADDRESS IN ERROR 


;RETURN 
‘sNSA MEMORY ERROR ADDA.SS = #01805' 


PRITADD - PRINT MEMORY TEST ADDRESS 


;PRI ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
IMPLICIT INPUTS 


: 

3 

3 

i 

3 

es 
PRITADD: 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
GH ADDRESSS 


ERRHI ,R2 3GET HI 
ERRLO,R1 3GET L DORE 
R1,R2 sCOPY LOW ADDRESS 
i :SHIFT BIT 15 TO C BIT 
;SHIFT INTO HIGH ORDER 
@PRITO,R1 ;PRINT MEMORY ADDRESS LOW IN ERROR 
-(SP) 
@PRITO, -(SP) 
Bat 
CsPNTB 


SEQ 0047 


J4 
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PRITADD 


te) 
1873 
ce) 


- PRINT 
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MEMORY TEST ADDRESS 


062706 


000006 ADD #6,SP 
PRINTB #@PRIT1,R2 ;PRINT MEMORY ADDRESS HIGH IN ERROR 
MOV R2,-(SP) 

010513 MOV @PRIT1,-(SP) 

000002 MOV 82. - SP) 


000006 ADD #6,SP 
RTS PC ;RETURN 
116 045 PRITO: .ASCIZ ‘'sNSA MEMORY TEST ADDRESS LOW = #06’ 
116 045 PRIT1: ‘aaa 'gNSA MEMORY TEST ADDRESS HIGH = #06' 


SEQ 0048 


K4 
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SEQ 0049 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1880 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1882 3° 
1883 3 
1884 ;ROUTINE TO ISSUE A SPACE RECORDS 
1885 ;COMMAND (FORWARD OR REVERSE) 
Hy 
1887 ; INPUT: 
1888 ; 
1889 : R3 NUMBER OF RECORDS TO BE SPACED OVER 
1890 : BIT15 CONTROLS DIRECTION 
1891 ; BIT15 = 0 IS FORWARD 
1892 : BIT15 = 1 IS REVERSE 
1893 : RS FIRST DEVICE UNIBUS ADDRESS 
7 
1895 ; REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
; 
1897 ;OUTPUT: 
1898 : 
1899 : CARRY SET - SPACE RECORDS COMMAND OK 
1900 ; CLR - SPACE RECORDS FAILED 
1901 : 
1902 : 
1903 : RO THE CONTENTS OF R4 IS MOVED TO RO 
1904 : 
1905 ; 
1906 ;IMPLICIT OUTPUT: 
1907 ; 
1908 ; TAPE HAS BEEN MOVED 
1909 3 
1910 ;SIDE EFFECTS: 
1911 3 
1912 3 
1913 3- 
1914 
1915 010560 SPACE: : 
1916 010560 SAVREG ;SAVE THE GENERAL REGISTERS 
1917 010564 012737 000764 010750 Vv #500. , SDELAY ;SET UP DELAY 
1918 010572 012737 140010 010740 MOV #140010, 80$ 3SET UP COMMAND, SPACE FORWARD 
1919 010600 005703 TST R3 i CHECK FOR DIRECTION 
1920 010602 100403 BMI 53 F REVERSE INDICATED 
1921 010604 010337 010742 MOV R3,90¢ :LOA "Ue UP NUMBER OF RECORDS TO SPACE 
1922 010610 000407 10% 
923 010612 042703 100000 S$: BIC $81T15,R3 }CLEAR DIRECTION BIT 
1924 010616 010337 010742 R3,908 :LOAD UP NUMBER OF RECORDS TO SPACE 
1925 010622 052737 000400 010740 BIS oBiTs, 80% ;SET REVERSE BIT IN COMMAND PACKET 
1926 010630 012704 010740 10$: Vv $80$ ,.R4 :SET UP R4 WITH PACKET ADDRESS 
1927 010634 010465 000000 MOV R4, TSDBC(RS) ;SEND OUT COMMAND 
1928 010640 004737 016370 15$: JSR PC. WAIT sWATT FOR S. 
1929 010644 103420 BCS 203 IF SSR ‘eC SET AND OK 
1930 010646 DELAY 350 \DELAY about 225 °Secons 
019646 012727 000250 #250,(PC)- 
010652 000000 
010654 013727 002116 MOV LSOLY,(PC)-+ 
010660 000000 WORD 
010662 005367 177772 bEC -6(PC) 
010666 001375 BNE _-4 


L4 
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SEQ 0050 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010670 005367 177756 DEC -22¢PC) 
010674 001367 BNE .-20 
1931 010676 005337 010750 DEC SDELAY ;BUMP DELAY COUNTER DOWN 
1932 010702 001356 BNE 15$ ;BR, IF MORE DELA 
1933 010704 00041: BR 60$ BR IF TROUBLE LARRY = CLEAR 
1934 010706 016501 000002 20%: MOV TSSR(RS).R1 ;READ TSSR 
1935 010712 012702 000200 MOV @SSR,R2 3SET vp EXPECTED 
1936 010716 020201 25%: CMP R2,Ri : ARE THEY ok 
1937 010720 001401 BEQ 40$ 
1938 010722 000402 BR 60$ OR OUBLE™ 
1939 010724 000261 40$: SEC ;SET ty a TROUBLE 
1940 010726 000401 BR 70$ ;EXIT 
1941 010730 000241 60$: cLC ;CARRY CLEAR = ERROR 
1942 010732 70$: 
1943 010732 010400 MOV R4,RO ;PASS PACKET ADDRESS 
1944 010734 000207 RTS PC ;RETURN 
1945 : 
1946 ; 
1947 ; 
1948 ;PACKET FOR SPACE COMMAND 
7 
1951 010740 =<, +10>€177770 
1953 F 
1954 ;COMMAND WORD 
1955 010740 000000 BO$: . WORD 
1956 NUMBER OF RECORDS TO BE SPACED OVER WORD 
1957 010742 000000 $0: . WORD 


1958 010744 000000 WORD 
1959 010746 000000 . WORD 
tect 010750 000000 SDELAY: yt te) sDELAY COUNTER 


-EVEN 
1962 -SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 


M4 
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WRTCHR 
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- WRITE CHARACTERISTICS COMMAND 


000012 


SEQ 0051 


; ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


: 

; INPUT: 

F R4 paket OF PACKET FROM TEST 

3 RS FIRST DEVICE UNIBUS ADDRESS 

8 REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
3 

;OUTPUT: 

; RO TSSR CONTENTS 

; CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
3 CLR - WRITE CHARACTERISTICS FAILED 


}IMPLICIT OUTPUT : 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 


XTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


3 
H 
: SOFTWARE SWITCHES SET AS FOLLOWS: 
3 
3 
H 
;SIDE EFFECTS: 
3° 
WRTCHR: : 
SAVREG 
CLR BENBSW 
CLR EXTFEA 
10$: MOV R4, TSDBCRS) 
JSR C:CHKTSSR 
BCS 203 
BR 60$ 
20% MOV TSSR(RS), AL 
MOV @SSR,R2 
BIT OOFL; 
BEQ 25$ 
BIS GOFL ,R2 
25% CMP R2,Ri 
BEQ 40$ 
BR 60$ 
40$: ADD 08. ,R4 
MOV (R45,R3 
BIT 6X2. EXTF ,XST2CR3) 
BEQ 45$ 
INC EXTFEA 
453: 
BIT @X2.BUFE,XST2(R3) 
BEQ 50$ 
INC BENBSW 
50$: 
MOV XST2(R3),REV 
BIC #17700, REV 
CMP #1,REV 
BEQ 55 
MOV #1, EXTFEA 
55$: SEC 
BR 70$ 
60$: cLC 


THE GENERAL REGISTERS 


sSAVE 
sCLEAR BUFFER ENABLE SWITCH 


sCLEAR EXTENDED FEATURES SW SWITCH 
COMMAND 


sSEND OUT 

sWAIT FOR SSR 

;BR, IF SSR IS SET AND OK 
BR IF_ TROUBLE CARRY = CLEAR 
;READ TSSR 

sSET UP EXPECTED 

;WAS OFF LINE SET IN TSSR 
ei IF NO OFL SET 
neyo ALIKE 


ExI 
sPOINT TO WRT CHARA DATA PACKET 
sGET ADDRESS OF MESSAGE BUFFER 
; EXTENDED FEATURES BIT SET? 


;8R IF NO 
SET EXTENDED FEATURES SW SWITCH 
UFFER ENABLE SWITCH SET 
BR IF SWITCH NOT 
SET SOFTWARE SUTCH FoR ENABLED 


sGET REVISON LEVEL OF MICROCODE 
11S TT ANEW REV IN REV 


18 ITA 
: sFOR NEW REV wavs EXTFEA SET 
iSET CARRY NO TROUBLE 


sEXIT 
i CARRY CLEAR = ERROR 


N4 
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WRTCHR - WRITE CHARACTERISTICS COMMAND 


2021 011130 yt teed 000002 70$; MOV TSSRCRS),RO sRETURN TSSR CONTENTS 
2022 011134 000207 RTS PC ;RETURN 


SEQ 0052 
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SEQ 0053 
REWIND - POSITION TAPE (REWIND) COMMAND 


oes -SBTTL REWIND - POSITION TAPE CREWIND) COMMAND 
3° 
2026 ; 
sos ;THIS ROUTINE WILL REWIND THE SELECTED TAPE. 
2029 F CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
2030 : TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
2031 3 SSR TO SET IN THE TSSR 
2032 ; 
2033 : 
2034 sCALLING SEQUENCE: 
2035 : 
20 3 DO A SOFT I 
2037 3 DO A WRITE CHARACTERISTICS 
2038 3 JSR PC ,REWIND 
2039 ; 
; INPUT: 
2041 3 
sons 3 RS FIRST DEVICE UNIBUS ADDRESS 
4 

2044 ; 
2045 3; OUTPUT 
2046 ; 
2047 ; RO THE CONTENTS OF R4 IS PASSED TO RO 
2048 3 
2049 ; 
2050 :- 
2051 011136 REWIND: 
2052 011136 * SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2053 011142 012704 011230 MOV #@RWPACK ,R4 ;GET PACKET ADDRESS 
2054 011146 010465 000000 MOV R4, TSDBCRS) ;SEND PACKET ADDRESS TO EXECUTE 
2055 011152 012703 000550 MOV #360. ,R3 s;ENOUGH TIME FOR 2400' REEL TO REWIND 
2056 011156 004737 016370 10$: JSR PC, WAITF sWAIT FOR SSR TO SET 
2057 011162 103417 BCS 20$ ;LEAVE WHEN SSR IS SET 
2058 011164 DELAY 250. sWAIT FOR .25 SECONDS 

011164 012727 000372 MOV #250. ,(PC)-+ 

011170 000000 WORD 

011172 013727 002116 MOV L$DLY,C(PC)- 

011176 000000 -WORD O 

011200 005367 177772 DEC -6(PC) 

011204 001375 BNE .-4 

011206 005367 177756 DEC -22(PC) 

011212 001367 BNE .-20 
2059 011214 005303 DEC R3 sBUMP COUNTER DOWN 
2060 011216 001357 BNE 10$ KEEP GOING 
2061 011220 000241 CLC CLEAR CARRY TO SET ERROR 
2062 011222 010400 20$: MOV R4,RO ;PASS THE PACKET ADDRESS 
2063 011224 000207 RTS PC ;RETURN 
2066 011230 .=<,+*10>€177770 
2068 011230 RWPACK: 


9 011230 102010 -WORD 102010 sPOSTION COMMAND CREWIND) 
70 011232 000000 -WORD O sNOT USED 
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CKRAM 


012701 
012702 
S00 
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- COMPARE RAM TO I/0 PACKET 


002234 
000201 


016456 
000000 
016456 
000000 
016456 
000000 


000210 


000010 


000000 


002274 


-SBTTL CKRAM ~- COMPARE RAM TO I/0 PACKET 


: Tad 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


HINPUT: 
3 
3 R4 ADDRESS OF THE COMMAND PACKET 
3 RS FIRST DEVICE UNIBUS ADDRESS 
‘OUTPUT: 


CARRY SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


MPLICIT OUTPUT: 
THE TABLE oy IS FILLED WITH THE 
DATA HELD IN 
RAMSIZ IS set 10° 8. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


14 


CKRAM: : 
SAVREG ;SAVE THE GENERAL REGISTERS 
MOV PRAMDATA,R1 s;ADDRESS TO SAVE THE RAM DATA 
MOV ORMPKTBEG ,R2 ;BYTE ADDRESS OF FIRST RAM DATA 
CLR R3 }CLEAR THE ERROR FLAG 
JSR PC, CHKTSSR ;WAIT F 
Move #0, TSDB(RS) ;SET MAINTENANCE MODE 
10$: JSR PC: CHKTSSR ;WAIT FOR SSR TO SET 
MOV R2, TSDBCRS) ;SELECT NEXT RAM ADDRESS 
JSR * CHKT ;WAIT FOR S TOs 
MOVB  TSBACRS),(R1) ;READ THE RAM DAT 
CMPB (R1)+,(R4)+ ;COMPARE TO EXPECTED 
BEQ 20$ BRANCH IF OK 
INC 3 ;SET ERROR FLAG 
205: INC R2 ;ADDRESS OF NEXT RAM LOCATION 
CMP R2, ORMPKTEND sREACHED END YET ? 
BLE 103 ;BRANCH TILL ALL READ 
TST R3 ;WAS AN ERROR FOUND ? 
BEQ 30$ ;BRANCH IF NOT 
CLC ;CLEAR CARRY TO SHOW ERROR 
BR 50$ ;AND EXIT 
30$: SEC ;SHOW GOOD COMPARE 
50$: MOV #8. ,RAMSIZ SETUP RAMSIZ FOR PRAMPKT ROUTINE 
RTS PC ;RETURN 


SEQ 0054 
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- COMPARE RAM TO I/O CHARACTERISTICS DATA 


011476 


012701 
012702 
S003 


002234 
000167 


016456 
000000 
016456 
000000 
016456 
000000 


000010 
002216 
000012 
000200 


000176 


002274 


002274 


t¢ 


. SBTTL 


CKRAM2 


; 
sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 


sMEMORY AND COMPARE THIS DATA TO A 


8 
; INPUT: 
: 
; 
; 


}OUTPUT : 


CKRAM2: : 


10$: 


20$: 


R4 
RS 


CARRY 


AJORESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 
} IMPLICIT OUTPUT: 
THE TABLE sy IS FILLED WITH THE 
DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
:SIDE EFFECTS: 
3 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


@RAMDATA,R1 
aati 


TSBACRS) (R1) 
+, CR4) )- 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


CHARACTERISTICS DATA BLOCK. 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE nae FLAG 


T 
;SELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 
sREAD THE RAM DATA 
sCOMPARE TO EXPECTED 
sBRANCH IF OK 


sSET 


sASSUME EXTFEA NOT 


sI1S THE SOFTWARE EX 


ERROR FLAG 
sADORESS OF NEXT RAM LOCATION 


SE 
TENDED FEATURES SET 


; 

;SET RAMSIZ FOR EXTEND FEATURES 

;AT END OF EXTENDED BUFFER 

:BR, IF NOT AT END YET 

;AT END BRANCH 

REACHED END YET ? 

;BRANCH TILL ALL READ 
FOUND ? 


;WAS 


AN ERROR 


sBRANCH IF NOT 

;CLEAR CARRY TO SHOW ERROR 
sAND EXIT 

sSHOW GOOD COMPARE 
RETURN 


SEQ 0055 


ES 
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CKMSG 


011616 
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- COMPARE WRITE CHAR. MESSAGE BUFFERS 


000012 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
3° 


; ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


5 
; INPUT: 
; 
3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
3 R2 EXPD MESSAGE BUFFER ADDRESS 
;OUTPUT: 
Hy 
3 CARRY SET - MESSAGE BUFFERS MATCH 
3 CLR -MESSAGE BUFFERS DON'T MATCH 
Q 
;IMPLICIT OUTPUT: 
; 
3 EXPMSG BUFFER IS SET TO EXPD pers 
3 RECMSG ourrse IS SET TO RECV DAT 
3 RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
8 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
. 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RCVHIADD ;SAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
TST KTENABLE sTESTING ABOVE 28K? 
BEQ 10$ ;BR IF NO 
JSR PC, SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 3;GET TURNED ADDRESS BIASED TO PAR6 
10$: CLR R4 sWORD IN BUFFER 
CLR R3 ;CLEAR E 
MOV R2,R5 ;GET EXPD BUFFER ADDRESS 
15$ MOV (RO), EXPMSG(R4) sSAVE EXPD FOR ERROR REPORT 
MOV CR1),RECMSGCR4) ;SAVE RECV FOR a REPORT 
CMP CR2)+,CR1)+ sEXPO Ty RECV? 
BEQ 25 3;BR IF YE 
INC R3 ;SET ERROR SEEN FLAG 
25% ADD €2,R4 sPOINT TO NEXT WORD ADDRESS 
CMP R4,014 ;DONE FIRST 7 WORDS? 
BLE 153 BR 
234 x2 .EXTF ,xST2CRS) IS EXTENDED FEATURES SET IN EXPD? 
3 
CMP R4,016 sDONE EXTENDED FEATURES WORD? 
BLE 15$ 3;6R IF 
50$: TST R3 sANY ERRORS SEEN? 
BEG 55% ; 
CLC ;SET FAILURE 
BR 60$ $ 
55$: SEC ;SET SUCCESS 
60$: RTS PC ;RETURN 


SEQ 0056 


FS 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
2237 .SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
3° 
2239 ;ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
2240 ;BUFFER. THE EXPECTED..AND RECEIVED BUFFERS ARE STORED FOR 
2241 ;ERROR PRINT ROUTINES. 
2242 ; 
2243 3; INPUT: 
2244 ; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
2245 ; Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
22 ; R2 EXPD MESSAGE BUFFER ADDRESS 
2247 ; R3 * NUMBER OF BYTES TO COMPARE 
Hi 

2249 ; OUTPUT: 
22 ; CARRY SET - MESSAGE BUFFERS MATCH 
2251 ; CLR - MESSAGE BUFFERS DON’T MATCH 
252 3 
2253 ;IMPLICIT OUTPUT: 
2254 : EXPMSG BUFFER IS SET TO EXPD DATA 
2255 ; RECMSG BUFFER IS SET TO RECV DATA 
22 : RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
2237 : RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
5559 011620 éxmsGe: : 
2260 011620 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2261 011624 020327 000144 CMP R3, ORECMSG-EXPMSG;aa0 IS COUNT ABOVE MAX ALLOWED? 
2262 011630 003412 BLE 53 yaa0 BR IF NO 
2263 011632 012703 000144 MOV SRECMSG-EXPMSG,R3 ; aaD 
2264 011636 PRINTF #DEBUGMSG 7; aa 

011636 012746 011752 MOV @DEBUGMSG, -( SP) 

011642 012746 000001 MOV #1,-(SP) 

011646 010600 MOV SP 

011650 104417 TRAP CSPNTF 

011652 062706 000004 ADD $4,SP 
2265 011656 010037 002276 S$: MOV RO; RCVHIADD ;SAVE RECV HIGH ADDRESS 
2266 011662 010137 002300 MOV R1‘RCVLOAD ;SAVE RECV LOW ADDRESS 
2267 011666 005737 003126 TST KTENABLE :TESTING ABOVE 28K? 
2268 011672 001403 BEQ 10$ ;BR IF NO 
2269 011674 004737 017436 JSR PC, SETMAP ;RETURN ADDRESS BIASED TO PAR6 IN RO 
2270 011700 010001 MOV RO.R1 ;GET RETURNED ADDRESS BIASED TO PAR6 
2271 011702 005004 10$: CLR R4 ;WORD IN BUFFER 
2272 011704 005005 CLR R ;CLEAR ERROR SEEN FLAG 
2273 011706 111264 002314 15$: MOVB (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
2274 011712 002460 MOVB  (R1).RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
2275 011716 122221 CMPB 0s (R2)+, (R1)+ ;EXPD EQUAL RECV? 
2276 011720 001401 BEQ 25$ ;BR IF YES 
2277 011722 005205 INC RS ;SET ERROR SEEN FLAG 
2278 011724 062704 000001 25%: ADD 01,R4 } ;POINT TO NEXT BYTE 
2279 011730 020403 CMP R4'R3 DONE ALL BYTES? 
2280 011732 002001 BGE ; BR 
2281 011734 000764 BR 15$ ;00 NEXT BYTE 
2282 011736 005705 50$: TST R5 ;ANY ERRORS SEEN? 
2283 011740 001402 BEQ 55$ ;BR IF NO 
5284 011742 000241 cLC :SET FAILURE 
2285 011744 000401 BR 60$ : 
2286 011746 000261 55$: SEC ;SET SUCCESS 
2287 011750 000207 60$: RTS PC ;RETURN 
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CKMSG2 


011752 
012042 
012053 
012106 
012141 


012164 


120 


004737 
004737 


104423 


004737 
012700 
004737 


104423 
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- COMPARE EXPD RECV MESSAGE BUFFERS 


006024 
017322 


006024 
000004 
007462 


SEQ 0058 


DEBUGMSG: .ASCIZ ‘PROGRAM _—— ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;aaD 
FERCM: .ASCII /sNSA ¢e0/ 
ERCM: -ASCIZ , TSSR_ ERROR CODE REC'D = / 


SIMSG: .ASCIZ . AFTER DOING SOFT INIT/ 
TINERR; sy Aiaat coed 


;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
; 
3 INPUT: 


; R1 CONTENTS OF TSSR AT ERROR 

3 

;SIDE EFFECTS: 

3 

8 EXECUTES DROP UNIT TO CEASE TESTING 

8 

hag 
BGNMSG SFIMSG 

SFIMSG: : 
JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
JSR PC, CKDROP ;DROP UNIT, IF ALLOWED 
ENDMSG 

L10003: 


TRAP C$MSG 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


; 

s INPUTS: 

: 

; R1 TSSR gl gk 

; R4 ADDRESS OF COMMAND PACKET . 


BGNMSG PKTSSR 


PKTSSR: : 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #4 ,RO sNO. OF WORDS IN PACKET 
JSR PC,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 

L10004; 


TRAP C$MSG 


H5 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
2331 36 
2332 ;PRINT ROUTINE TO PRINT THE CONTENTS OF 
oee5 ;TSSR AND A GET STATUS COMMAND PACKET. 
a 
2335 ; INPUTS: 
2336 3 
2337 ; Ri TSSR CONTENTS 
ets] ; R4 ADDRESS OF COMMAND PACKET 
oi 
2340 012204 BGNMSG PKTGETS 
012204 PKTGETS:: 
2341 012204 004737 006024 JSR PC,PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
2342 012210 012700 000002 MOV #2,R0 3NO. OF WORDS IN GET STATUS PACKET 
2343 012214 004737 007462 JSR PC ,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
2344 012220 ENDMSG 
012220 L10005: 
onen 012220 104423 TRAP C$MSG 
3 — 
Seat ;PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
Hy 
2348 s INPUTS: 
2349 ; R1 TSSR CONTENTS 
2330 ; R4 ADDRESS OF COMMAND PACKET 
3 i 
2352 012222 BGNMSG SFFMSG 
012222 SFFMSG: : 
2353 012222 004737 006024 JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
2354 012226 ENDMSG 
012226 L10006: 
012226 104423 TRAP C$MSG 
2333 .SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3 * 
2357 ;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
2358 ;BUFFER FOR ERROR REPORTS 
2359 3 
2360 ; INPUTS: 
2361 3 
2362 ; R1 CONTENTS OF TSSR 
2363 ; R2 LOW ORDER MESSAGE BUFFER 
2364 : R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
nee ; NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
3 — 
2367 012230 BGNMSG PKTMES 
012230 PKTMES:: 
2368 012230 004737 006024 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
2369 012234 010200 MOV R2,RO ;LOW ORDER ADDRESS 
2370 012236 010301 MOV R3,R1 SHIGH ORDER ADORESS 
2371 012240 004737 014362 JSR PC,PRMESS ;PRINT THE MESSAGE BUFFER 
2372 012244 ENOMSG 
012244 10007: 


012244 104423 * TRAP = C$MSG 
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0047+? 
162.4 
00475 


104423 
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010366 
000002 
006024 


000007 
002216 


000010 
014672 


.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


;PRINT ROUTI*< TO PRINT THE CONTENTS OF 
;TSSR AND A MEMORY TEST ADDRESS 


}INPUTS: 
FIRST DEVICE UNIBUS ADDRESS 


R5 
; ERRHI HIGH ORDER MEMORY TEST ADDRESS 
; ERRLO LOW ORDER MEMORY TEST ADDRESS 
; 


BGNMSG ADDSSR 


ADDSSR 
JSR PC, ay Lh B ;PRINT ere TEST ADDRESS 
MOV TSSR(RS),R ;GET CURRENT TSSR 
JSR Pc, PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
ENDMSG 
L10010 


* TRAP —sC$MSG 
_SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
; 

sIMPLICIT INPUTS: 

: EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
; 


BGNMSG MSGEXP 


MSGEXP 

MOV $7,RO ASSUME NO EXT FEATURES 

TST EXtFEA EXT FEATURES SET? 

BEQ S$ ;68R IF NO 

MOV #8. ,RO }EXT FEATURE BUFFER IS 8 WORDS 
S$: JSR PC , PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 
L10011 — 


TRAP C$MSG 


SEQ 0060 


J5 
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SEQ 0061 
FIFEXP - PRINT FIFO EXP/RECV DATA 


2ai2 .SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
ad 
2414 : 
ota ;PRINT ROUTINE TO PRINT FIFO EXP/RECY DATA 
$ 
2417 ; R1 - BYTE COUNT 
2418 ; 
2419 ;IMPLICIT INPUTS: 
2421 ; EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
ekee : RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
g= 
2424 012310 BGNMSG FIFEXP 
012310 FIFEXP: ; 
2425 012310 PRINTX @FIF1MSG,R1 ;PRINT BYTES TRANSFERRED 
012310 010146 MOV R1,-(SP) 
012312 012746 012362 MOV OF IF IMSG, -( SP) 
012316 012746 000002 MOV $2,-(SP) 
012322 01 MOV *RO 
012324 104415 TRAP C$PNTX 
012326 706 000006 ADD $6, SP 
2426 012332 PRINTX OF IF2MSG ;PRINT HEADER MSG 
012332 012746 012431 MOV OF IF 2MSG, -( SP) 
012336 012746 MOV 1,- 
012342 01 : 
012344 104415 TRAP C$PNTX 
12346 062706 000004 . 
2427 012352 010100 MOV R1_RO ;GET BYTE COUNT 
2428 012354 004737 015242 JSR PC; PRBYTEXP ;PRINT FIFO BYTES IN ERROR 
2429 012360 SG 
012360 L10012: 
012360 104423 AP  —s-s C$MSG 
2430 012362 045 116 045 FIFIMSG: “ASCIZ ‘sSNA NUMBER OF BYTES TRANSFERRED = D2’ 


2431 012431 045 116 045 FIF2MSG: -ASCIZ ‘sSNA FIFO DATA BYTES IN ERROR:’ 
2432 EVEN 


KS 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012701 


2462 0 
2463 013127 045 


3° 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


; 
PIMPLICIT INPUTS: 


EXPMSG - EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFE' 


RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


; 

: RECMSG R 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; 

; 


BGNMSG MSGSTAT 


MSGSTAT:: 
012532 MOV #STATCOD,R1 sASCII ADDRESS TABLE 
10$: MOV (R1)+,RO ;DONE ALL MSG LINES? 
BEQ 20$ ;BR IF YES 
PRINTX ;PRINT STATUS BIT NAMES 
Vv RO, -(SP) 
000001 MOV #1,-CSP) 
Vv RO 
TRAP C$PNTX 
000004 ADD SP 
BR o$ ;D0 ANOTHER MSG LINE 
000012 203: MOV 810, ;NUMBER OF WORDS IN A READ STATUS BUFFER 
014672 JSR t BRNSGEXP ‘PRINT EXPD/RECV MESSAGE BUFFERS 
L10013: 
RAP C$MSG 
012612 012703 STATCOD: -WORD 1$,2$,3%,4¢,5$,6%,0 
11 045 1$:.ASCIZ ‘sSNA Tape Bus Si als in Word o8:' 
116 045 2$:.ASCIZ ‘'ssNSA Pp <15> IEOT <l2> IFMK <9> IRDY<6> IRWD<2>’ 
116 045 3$:.ASCIZ ‘ssNsA IRESV2<14> IIDENT<11> IHER <8> IONL.<S> IFBY<1>’ 
116 045 4$:.ASCIZ ‘ssNSA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>’ 
116 045 5$:.ASCIZ ‘NSA Tape Bus Signals in rd . 
116 045 6%: Aaese, ' NSA DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>’ 


SEQ 0062 


LS 
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013246 


SEQ 0063 


PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
t ad 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
FIMPLICIT INPUTS: 


8 
8 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
8 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
a 
BGNMSG MSGLOOP 
MSGLOOP;: : 
MOV #LOOPCOD,R1 sASCII ADDRESS TABLE 
10$: MOV CR1)+,RO ;DONE ALL MSG LINES? 
EQ 20$ ;BR IF YES 
— ;PRINT STATUS BIT NAMES 


@4,SP 

BR 10$ 3D0 ANOTHER MSG LINE 
20$: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 

JSR PC , PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 

ENDMSG 
L10014 

TRAP C$MSG 
LOOPCOD: . WORD 1$,2$,3$,4$,5$,6$, 7$,0 
1$:.ASCIZ ‘sNSA Tape Bus Loopback Signals in Word #6:' 
2$:.ASCIZ ‘ssNsA PARERR<15> IRESV2<14> IRESV1<13>' 
3$:.ASCIZ ‘sNsSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
4$:.ASCIZ ‘sNsA IWFM =>IFMK<09> IEDIT=>IHER <O8> IFAD =>ISPEED<07>' 
5$:.ASCIZ ‘sNsA ITADO=>IRDY<06> ITAD1=>IONL <O5> IERASE=>ILDP <04>' 
6$:.ASCIZ ‘sNSA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <0O1>' 
7$:.ASCIZ ‘sNSA IGO =>IFPT<00>' 


M5 
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012700 
004737 
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0v0012 
014672 


SEQ 0064 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
| Tad 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
: 
}IMPLICIT INPUTS: 


; 

; EXPMSG - EXPECTED MESSAGE BUFFER 

: RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSUB 


MSGSUB: : 
MOV #10. ,RO SIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC , PRMSGE XP ;PRINT EXPD/RECV MESSAGE BUFFERS 
L10015 . 


* TRAP —«C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
| Td 


SPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
IMPLICIT INPUTS: 


; 

; ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

; ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

; EXP - EXPECTED DATA 

; RECV - RECEIVED DATA 

a 
BGNMSG MEMADD 

MEMADD: : 
JSR PC,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 :GET EXPD DATA 
MOV RECV.R2 ;GET RECEIVED DATA 
JSR PC, PRIXOR ;PRINT EXPD/RECV 
ENDMSG 

L10016: 


TRAP C$MSG 


NS 
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-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


;PRINT ROUTINE TO DISPLAY A ld DATA 
nan: THE RAM DATA DOES NOT MATCH 


SINPUTS: 


; 
POINTER TO COMMAND PACKET 
IMPLICIT eta 
i RAMDAT DATA AS READ FROM THE RAM 
: RANSIZ NUMBER OF BYTES IN PACKET 
: IF RAMSIZ=0 THEN DEFAULT TO 8. 


bIMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


1 
52 014116 Taek 
:SAVE RI-RS UNTIL NEXT RETURN 
012701 MOV @RAMDATA,R1 DATA FROM THE R 
005002 }INIT BYTE NUMBER 
122124 S$: CMPB 0s (R1.)+, (R4)> iCOMPARE EXPECTED, RECEIVED 
001005 BNE 73 Nh }68R IF NO MATCH 


000436 :@a0 

116105 177777 : “26822. RS sGET RECV RAM DATA 

116403 177777 R3 sGET EXPD PACKET DATA 
RS Bes RECV 


042703 177400 YTE ONLY 

116137 177777 MOVB GET RECEIVED RAM DATA 

116437 177777 (R4).EXPD ;GET EXPECTED RAM DATA 
saarase, R2,RECV,EXPD,R3 


SP} 
002224 
002226 


014276 
000005 


000014 

2 ;UPDATE BYTE COUNT 
002274 opera ULT TO 8.? 

15$ 3;6R IF YES 
002274 CMP sDONE ALL BYTES? 

. S$ 36R IF NO 
3 
$: CMP ‘ ;DONE DEFAULT NUMBER OF BYTES? 
$: $ 3;68R IF NO 
$: 3SET DEFAULT RAMSIZ 
PC sRETURN 

116 045 RAMASC: pect ‘SNSA BYTE: SD28A RAM: SO38A Packet: SO38A XOR:803' 


000010 
002274 





B6 
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003126 


014540 
000003 


000010 


014605 
000001 


000004 
017436 
014643 
000003 


000010 
000007 


000200 


116 
116 
116 


045 
045 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


3° 
;THIS ROUTINE PRINTS THE CONTENTS OF 
s;THE 7 OR & WORD MESSAGE BUFFER RETURNED BY THE TSV-OS. 


s INPUT: 
; RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 


NOTE: R1 IS IGNORED IF Yn | FLAG IS CLEAR 
:THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS: —— sSAVE THE REGISTERS 


RO,RS sSAVE LOW ORDER ADDRESS 
TST KTENABLE fe ABOVE 28K? 
BNE 10$ ;BR IF YES 
CLR R1 ;SET HIGH ORDER ADDRESS TO 0 
10$: MOV R1,R3 sSAVE_HIGH ORDER ADDRESS 
ROL RO ;SHIFT BIT1iS TO C B 


IT 
sSHIFT TO HIGH ORDER FOR PRINTOUT 


ROL Ri 
— #PROASC ,R1,R5 ;PRINT MESSAGE BUFFER ADDRESS 


RS, -(SP) 
MOV R1,-CSP) 
MOV #PROASC, -( SP) 
MOV $3,-(SP) 
MOV SP ‘RO 
TRAP C$PNTX 
ADD $10,SP 
PRINTX #PRIASC ;PRINT HEADER FOR CONTENTS 
MOV @PR1ASC, -(SP) 
MOV #1,-(SP) 
MOV P'RO 
TRAP C$PNTX 
ADD $4,SP 
CLR R4 ;NUMBER OF THE NEXT WORD 
MOV R5,R1 ;COPY LOW ORDER ADDRESS 
MOV R3_RO ;COPY HIGH ORDER ADDRESS 
BEQ 203 ;BR IF NOT ABOVE 28K 
JSR PC, SETMAP i SETUP PAR ADDRESS IN RO 
MOV RO-RS ;GET PAR FORMAT ADDRESS ABOVE 28K 
203: PRINTX @PRASC, tes PRINT THE CONTENTS OF MEMORY BUFFER 
MOV sp) 
MOV RCP. 
MOV 03,-C(SP) 
MOV SP; RO 
TRAP C$PNTX 
ADD $10,SP 
INC R4 ;NUMBER OF THE NEXT 
CMP R4,07 ;DONE ALL YET ? 
BGT 50$ sBRANCH TF ALL 
BLT RST 7 WOR 


20$ FI OS 
BIT @X2.EXTF, mace PER FEATUTES ON ? 
NE 20% T EXTENDED STATUS WORD 


50$ RTS PC phe TURN 

PROASC: .ASCIZ ‘sSNA Message Buffer Address = #01805’ 
PRIASC: .ASCIZ ‘sNSA Message Buffer Contents: ' 

PRASC: .ASCIZ ‘ssNSA WordsD1sA: #0’ 


SEQ 0066 
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002300 
002276 


015052 
000003 


000010 


015117 
000001 


002314 
002460 


015155 
000005 


000014 


116 
116 
116 


045 
045 


- EVEN 
.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
:ROUTINE TO PRINT eatak AND RECEIVED MESSAGE BUFFERS 


8 0 R OF WORDS IN BUFFER 
; IMPLICIT INPUTS: 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
i= 
PRMSGEXP: ; 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RS ;SAVE NUMBER OF WORDS 
MOV RCVLOADD ,RO ;GET RECV LOW ADDRESS 
MOV RO,R4 ;COPY LOW ADDRESS 
MOV RCVHIADD,R1 ;GET RECV HIGH ADDRESS 
ROL RO ;SHIFT BIT1S TO C BIT 
ROL R1 ;SHIFT TO HIGH ORDER FOR PRINTOUT 
an ag | mie 7-5 tea ‘PRINT MESSAGE BUFFER ADDRESS 
MOV R1,- SP) 
MOV #P. »- CSP) 
MOV #3,-(SP 
MOV SP, 
TRAP C$PNTX 
ADD #10,SP 
PRINTX #PRMSG1 ;PRINT HEADER FOR CONTENTS 
MOV @PRMSG1, -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP C$PNTX 
ADD @4,SP 
CLR R4 sNUMBER OF THE CURRENT WORD 
MOV SE XPMSG ,R1 ;GET EXPD BUFFER ADDRESS 
MOV #RECMSG ,R2 ;GET RECV BUFFER ADDRESS 
20%: MOV Ra 2-80 ;GET EXPD 
MOV R2),R3 ;GET RECV 
xOR RO,R ;XOR EXPD/RECV 
— OPRMSG2 ,R4,(R1)+,CR2)+,R3 


MOV 
TRAP —- C$PNTX 
ADD #14,SP 
INC R4 sNUMBER OF THE NEXT 
CMP R4,RS s;DONE ALL YET? 
BGE 50$ ;8R IF YES 
BR 20% 10 ANOTHER 
50$: RTS 5 ee y RETURN 
PRMSGO: .ASCIZ A Message Buffer Address = ,801805' 


PRMSG1: .ASCIZ ever Mess Buffer Contents 
PRMSG2 


: .ASCIZ ‘siNSA @sD28A EXPD: SObmA RECV: 068A XOR: 


SEQ 0067 
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2657 
2c5e8 
2659 
2660 


110337 
122122 
yo? Bt} 
00523 

023727 
101023 
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002312 
002314 
002460 
177400 
015610 


177400 
015612 


002312 
002312 


015612 
015610 
015456 
000005 


000014 


002312 
0155435 
000002 


000010 


-EVEN 
-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


3° 


}ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
2 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


- NUMBER OF BYTES IN BUFFER 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


: RO 

; 

;IMPLICIT INPUTS: 

3 

3 EXPMSG 

3 RECMSG 

BRBYTEXP: : 
SAVREG 
MOV RO,RS 
CLR 
CLR R4 
MOV #EXPMSG,R1 
MOV @RECMSG, 

205: MOVB (R1),RO 
BIC $tC<377>,RO 
MO RO, PRBEX 
MO (R2),R3 
BIC OtC<377>,R3 
MOVB  R3,PRBREC 
XOR RO_R3 
CMPB (R1i)+,(R2)- 
BEQ 30$ 
INC PRMNO 
CMP PRMNO, 08. 
BHI 30$ 

27%: PRINTX BPRBMSG 
MOV PROREC. (SP) 
nee i 
MOV OPRBMSG, -( SP) 
A 
TRAP C$PNTX 
ADD 014,SP 
FORCEXIT 50$ 
BR S$ 

30$: 

al FORCERROR 27%,NOTSSR 
INC R4 
CMP R4,RS 
BGE $ 
BR $ 

50$: PRINTX #PRBTOT,PRMNO 
MOV -¢ 
MOV OPRBTOT, -(SP) 
MOV #2.-¢SP) 
MOV *R 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBEP OF BYTES 

sINIT ERROR COUNT 

sNUMBER OF THE CURRENT SYTE 
sGET EXPD BUFFER ADDRESS 

sGET RECV BUFFET ADDRESS 


sPRINTED 8? 


:aa0 
sNUMBER OF THE NEXT 


300 ANOTHER 
sPRINT TOTAL ERROR COUNT 


SEQ 0068 


E6 
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SEQ 0069 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


015446 104415 TRAP C$PNTX 
015450 062706 000006 ADD #6,SP 
2701 015454 000207 RTS PC ;RETURN 
2703 015456 045 116 045 PRBMSG: .ASCIZ ‘sSNA BYTE @8D28A EXPD: 038A RECV: SO38A XOR: #03’ 
eros 015543 045 116 045 PRBTOT: -ASCIZ 'gNSA NUMBER OF BYTES IN ERROR = D2’ 
2706 015610 000000 PRBEXP: .WORD 0 sEXPD 
2707 015612 000000 PRBREC: .WORD 0 RECV 
2708 “SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
3° 
2710 3 
$733 ;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
; 
2713 ; INPUTS: 
2714 
2715 ; R1 RECEIVED DATA 
2716 ; R2 EXPECTED DATA 
2717 : 
2718 :- 
2719 
2720 015614 BGNMSG EXPREC 
015614 EXPREC:: 
2721 015614 004737 010034 JSR PC,PRIXOR ;PRINT THE DATA 
2722 015620 ENDMSG 
015620 10017: 
015620 104423 TRAP C$MSG 
2723 .SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
3° 
2725 3 
ies s;PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
: 
2728 3 
2729 ; INPUTS: 
2730 3 
2731 : Ri RECEIVED DATA BYTE 
2732 ; R2 EXPECTED DATA BYTE 
2733 3 
2734 3- 
2735 
2736 015622 BGNMSG EXPBREC 
015622 EXPBREC: : 
2737 015622 004737 007704 JSR PC ,PRIBXOR ;PRINT THE DATA 
2738 015626 ENOMSG 
015626 L10020: 
015626 104423 TRAP C$MSG 
2739 
2740 
2741 .SBTTL RAMERR - PRINT RAM AND PACKET DATA 
2742 ;* 
2743 3 
e748 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
: 
2746 s INPUTS: 
2747 Fy 
2748 ; R4 POINTER TO COMMAND PACKET 


2749 3 


F6 
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RAMERR 


015630 
62 015630 004737 014116 


015634 104423 


36 
015636 004737 010366 
Si aese 004737 014116 


S646 
015646 104423 
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- PRINT RAM AND PACKET DATA 


SEQ 0070 


sIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 


RAMSIZ SET 10 0 


BGNMSG RAMERR 
RAMERR: : 
JSR PC ,PRAMPKT ;PRINT RAM/PACKET DATA 
ENDMSG 
L10021: 
TRAP C$MSG 


-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3° 


;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


‘INPUTS: 

: R4 POINTER TO COMMAND PACKET 

}IMPLICIT INPUTS: 

: RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 

Ir RAMSIZ=0 THEN DEFAULT TO 8. 

ERRHI HIGH ORDER TEST ADDRESS 
ERRLO LOW ORDER TEST ADDRESS 


IMPLICIT OUTPUTS: 
RAMSIZ SET T0 0 


BGNMSG RAMTADD 


RAMTADD: : 
JSR PC ,PRITADD sPRINT TEST ADDRESS 
JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
ENDMSG 

L10022: 


TRAP C$MSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
3° 


; 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


‘INPUTS: 
: Ri RECEIVED DATA 
; R2 EXPECTED DATA 


G6 
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SEQ 0071 
RAMEXP - PRINT RAM EXPD/RECV DATA 
2801 : R4 CONTROLLER RAM ADDRESS 
2802 :- : 
soos 015650 GNMSG 
8B RAME XP 
015650 RAMEXP: : 
2805 015650 042701 177400 BIC @tC<377>,R1 ;SAVE EXPD RAM DATA BYTE 
2806 015654 042702 177400 BIC $tC<377>,R2 ;SAVE EXPD RAM DATA BYTE 
2807 015660 004737 010160 JSR PC ,PRIRAM ;PRINT THE RAM ADDRESS 
2808 015664 004737 010034 JSR PC,PRIXOR ;PRINT THE DATA 
2809 015670 NOMSG 
015670 L10023: 
2810 015670 104423 TRAP C$MSG 
oi3 .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
3° 
2813 8 
2814 sPRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
ssi7 ;AND TIMER A,B HEADER MESSAGE 
3 
2817 ; INPUTS: 
2818 3 
2819 F Ri RECEIVED DATA 
2820 3 R2 EXPECTED DATA 
2821 8° 
2822 
2823 015672 BGNMSG TIMEXP 
015672 TIMEXP: : 
2824 015672 PRINTX #TIMSGO ;PRINT HEADER 
015672 012746 015720 MOV #TIMSGO, -( SP) 
015676 012746 000001 MOV #1,- (SP) 
015702 010600 MOV RO 
015704 104415 TRAP ss C$F TX 
015706 062706 000004 ADD #4,SP 
2825 015712 004737 010034 JSR PC ,PRIXOR ;PRINT THE DATA 
2826 015716 ENOMSG 
015716 L10024: 
2827 015716 104423 TRAP C$MSG 
sees 015720 045 116 045 bf + -ASCIZ ‘NSA TIMER A STATUS IS IN BIT 3sNSA TIMER B STATUS IS IN BIT 2' 
oat -SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2832 s¢ 
2833 3 
eos sP8IN\i ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
3 
2836™. s; INPUTS: 
2837 
2838 ; R1 CONTENTS OF TSSR 
5839 ; R2 DATA WRITTEN (8 BITS) 
2840 3 
2841 3 
2842 
2843 016020 BGNMSG BADSSR 
016020 BADSSR: : 
2844 016020 010246 MOV 


SP) sSAVE DATA Mg 
2845 016022 042702 177400 BIC 9177400. R2 sGET JUST ONE BYTE 


H6 
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BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2846 016026 PRINTB #@XFERASC,R2 
016026 010246 MOV R2,-(SP) 
016030 012746 016060 MOV #XFERASC, -(SP) 
016034 012746 000002 MOV #2,-(SP) 
016040 010600 MOV SP°R 
016042 104414 TRAP C$PNTB 
016044 062706 000006 ADD $6,SP 
2847 016050 012602 MOV (SP)+,R2 ;RESTORE R2 
2848 016052 004737 006024 JSR Pr PRITSSR ;DECODE TSSR CONTENTS 
2849 016056 ENDMSG 
60 L10025: 
016056 104423 TRAP = C$MSG 
2850 016060 045 116 045 XFERASC: “ASCIZ ‘SNA Data Transferred = #03' 


TSV3 - GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


016114 

012765 000000 
004 016370 
000002 


176277 
002200 


000002 
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SEQ 0073 


-SBTTL GLOBAL SUBROUTINES SECTION 


Aad 


; THE GLOBAL SUBROUTINES SECTION eat THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE T 


gee 
-SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
. 


; ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


PINPUTS: 
RS ADDRESS OF FIRST REGISTER 
}OUTPUTS: 
RO CONTENTS OF TSSR, ol ERROR 
CARRY SET IF INIT WAS OKAY 


CLEAR IF FATAL ERROR 
CALLING SEQUENCE : 


MOV #ADDRESS RS 
JSR PC, SOF INIT 
BCS CONT INUE 
ERRDF ;REPORT FATAL ERROR 

SOF INIT: : 
SAVREG ; SAVE THE REGISTERS 
MOV 90, TSSRCRS) DO THE INIT 
JSR WAIT FOR SSR 
MOV TSSRCRS), RO :GET THE TSSR REGISTER 
MOV RO il SSR CONTENTS 
BIC OTC cHIADDR!OFL>. 
BIS OSSR!NBA, 24 :R4 HAS EXPECTED CONTENTS 
CMP R4,RO ;ONLY EXPECTED Brts SET ? 
BEQ S$ ;BRANCH IF 
cLC :CLEAR THE Conny FOR ERROR 
BR 10$ :G0 TO EXIT 

S$: SEC ;SET THE CARRY BIT 

10$: RTS PC ;RETURN TO CALLER 


J6 
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CHKAMB - CHECK TSSR FOR AMBIGUITY 


SEQ 0074 


2901 .SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
2903 se 
2904 a 
2905 ;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
2906 ;FOR AMBIGUITY 
2907 ; 
2908 ; INPUT: 
2909 ; 
2910 3 RO CONTENTS OF TSSR 
2911 3 
2912 ;OUTPUT: 
2913 8 
<315 3 RO CONTENTS OF TSSR 
3 
2916 ; CARRY SET - NO AMBIGUIT 
2917 3 CLR - AMBIGUOUS CONTENTS 
2918 8 
2919 :- 
2920 
2921 016164 CHKAMB : 
2922 016164 SAVREG ;SAVE THE GENERAL REGISTERS 
2923 016170 010004 MOV RO,R4 sCONTENTS OF TSSR 
2924 016172 032700 100000 BIT esc, RO 31S BIT 15 SET ? 
2925 016176 001004 BNE 5$ ;BRANCH IF YES 
2926 016200 032700 174077 BIT 31C<NBA!OFL !SSR!HIADDR > RO ;ANY OTHER BITS SET ? 
2927 016204 001023 BNE 40$ ;MUST AN ERROR 
2928 016206 000424 BR 45$ ;RETURN WITH SUCCESS 
2929 016210 032700 000200 S$: BIT #SSR ,RO 31S READY BIT SET 
2939 016214 001011 BNE 10$ ;BRANCH IF READY BIT IS SET 
2931 016216 032700 000040 BIT #BITS,RO 31S FATAL ERROR BIT 
2932 016222 001414 BEG 40$ ;ERROR IF NOT 
2933 016224 042704 177761 BIC @tCTERCLS,R4 CLEAR ALL BUT br ae, CODE 
2934 016230 020427 000016 CMP R4,016 ;ALL THREE BITS MUST BE SET 
2935 016234 001007 BNE 40$ ERROR IF NOT SET 
2936 016236 000410 BR 4s$ 30K IF ALL ARE SET 
2937 016240 032700 000040 10$: BIT #BITS,RO ;IS FATAL ERROR BIT SET ? 
2938 016244 001405 BEQ 45$ sERROR IF BIT IS SET WITH SSR 
2939 016246 032700 000006 BIT #BIT2!BIT1,RO iIS THIS A FUNCTION REJECT 
2940 016252 001002 BNE 45$ ;BR, IF TSSR IS OK 
2941 016254 000241 40$: CLC sAMBIGUOUS CONTENTS 
2942 016256 000401 BR 50$ 
2943 016260 000261 45$: SEC sSHOW SUCCESS - NO AMBIGUITY 
2944 016262 000207 50$: RTS PC sRETURN TO CALLER 


K6 


TSV3 - GLOBAL AREAS 
ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


000200 


012737 
105037 
132737 


001003 
152737 
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000002 


-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


DEF AULT ts ol INTERRUPT HANDLERS. 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU'REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
; 


IOKCKIN=B1IT7 ; DON'T CHECK FOR BAD pail -- TEST WILL. 


IOKSTP=BITO ; EXPECT “STOP” INTE 
; INTERRUPT MASK “evle EXPECTING INTERRUPTS 


NTMASK ; TE O 
are FLAG ae =rs - GOT ONE CIF POSITIVE) 


aaver ._—— VECTOR: 


WOR 
SAVES CPU PC 
INTCPC: .WORD 
SUBROUTINE 10 ENABLE INTERRUPTS: 
ENAINT: MOV -(SP) ;SAVE R 
Vv iV RO GET POINTER TO VECTORS 
MOV IvEC (RO)+ ;SET UP INTERRUPT VECTOR 
MOV ePR107 (RO)- 
MOV d- RO ;RESTORE RO 
MOV tS =6$P) 
MOV $3" 3¢56 ;SET CPU TO LEVEL 0 
RTI 
SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
OSBINT: MOV > =(SP) 
MOV @PRIO7,2(SP) 
.SBTTL INTR - INTERRUPT HANDLERS 
a BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
4 #1, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
INTF ;CLEAR FLAG TO SAY WE GOT INTERRUPT 


CLRB LAG 

BITB @IOKSTP, INTMASK jEXPECTING STOP INTERRUPT? 

BNE 1 ;BR IF YES 

BISB @IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
Pape REGISTERS, MSG BUFFER, ETC. 


ENDSRV 
L10026: 


SEQ 0075 


L6 
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WAITF 


3 


2997 


533 


3001 
3002 
3003 


see55 


Perr 


2 
OviauUnre Oo 
°o 


SSSSss $ 


- WAIT FOR SUBSYSTEM READY 


016370 000401 


1044 
016374 012746 011000 


000000 
016416 013727 002116 
000000 
016424 005367 177772 
016432 005367 177756 


} INPUTS: 


PW 
aww 
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-SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
‘ 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


1$ sNOP WHEN SUPER FIXED 
; DO A SUPVSR BREAK FIRST. 


C$BRK 
#11000, -( SP) s:25-APRIL-83 REV B_ - 1100 MSEC TIMER 


TSSRCRS),RO ;READ THE TSSR REGISTER 
;TEST FOR READY BIT SET 

3$ ; EXIT ON STOP FLAG. 

i ; WAIT 100 USEC 

#1,(PC)« 

LSDLY.CPC)+ 

-6(PC) 

“2a¢PC) 

(sP) sREDUCE DELAY COUNT 

23 ;RETRY UNTIL TIMER EXPIRES 
; : = ©, CONTROLLER STILL RUNNING.. 

4$ +...0R FUNG Up AFTER MSE 


300 MSEC. 
CONTROLLER IS STOPPED. 
(SPs bac ctohe STACK WITHOUT CHANGING CARRY BIT 


SEQ 0076 


M6 


TSV3 - GLOBAL AREAS 


CHKTSSR 
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- CHECK TSSR FOR READY 


3050 016514 


016516 
016524 


016574 


012737 
012737 
S00 


016370 
016164 
100000 
074000 


016550 
000200 


016560 


SEQ 0077 


-SBTTL CHKTSSR - CHECK TSSR FOR READY 


;THIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


; 
; INPUT: 
; RS ADDRESS OF CSR REGISTERS 
; OUTPUT: 
; RO CONTENTS OF TSSR 
; CARRY SET - OKAY 
: CLR - NOT READY AMBIGUOUS, OR SC SET 
buxTssr 
JSR PC, WAITF ;WAIT FOR READY 
BCC 203 ;BRANCH IF TIME OUT 
JSR PC, CHKAMB ;TSSR AMBIGOUS? 
BCC 10% BR IF YES 
BIT @SC,RO ;SPECIAL CONDITION SET? 
BEQ 15$ ;BR IF 
BIT $<SCE!BIE !RMR!NXM> ,RO :ANY ERROR BITS SET? 
BEQ 153 F NO 
10$: CLC SET FAILURE 
BR 20% 
15$: SEC iSET SUCCESS 
20$: RTS PC ;RETURN TO CALLER 
“SBTTL XNXM  - CHECK FOR NONEXISTENT MEMORY 
id 
; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
; ON RETURN, IF "“C” = 1, (R1) = NEXM ADDRESS. 
; “C" = 0; ALL ADDRESSES OK. 
: 
;CALL: MOV ADR1,R1 
; MOV ADR2, 
3 JSR PC,NXM 
; RETURN ; TEST "c" AND PROCEED. 
XNXM: MOV $2%,a04 SET BUSERR VECTOR. 
MOV OPRI04 , 206 
CLR R3 FLAG. 
1s: TST (R1) TEST THE ADDRESS(ES). 
;IF ANY T CONTINUE AT 2¢. 
CMP R1,R2 ;OTHERWISE, CONTINUE 
BEQ 3% :8R IF Fast ¢NO NEXM’S). 
ADD #2,R1 sSET NEXT ADDRESS... 
BR 1$ . AND CONTINUE: 
2$: COM R3 iGOt ONE, SET FLAG.. 
MoV 034,(SP) 
RTI :...AND DISMISS INTERRUPT. 
3%: CLAVEC 04 +... AND GIVE BACK THE VECTOR. 
MOV $4,RO 
TRAP C$CVEC 
TST R3 sDID WE CATCH ONE 2? 
BEQ 74 :NO, "C" = ©, SKIP NEXT 
Cc rYeS, “ce = i, (R1) = NEXM ADDR. 
RTS PC 


N6 
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TSTLOOP - CHECK ITERATION COUNT 
3079 -SBTTL TSTLOOP - CHECK ITERATION COUNT 


SEQ 0078 


3080 

3081 } SUBROUTINE TO EXECUTE TEST ITERATIONS. 

3082 ; EXIT WITH “C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 

3083 + TOOP COUNTER IS SET BY "BEGIN. TEST” MACRO. 

3085 ; CALL: LOOPTO ARG 

3086 

3087 016576 +sTLOOP: ; 

3088 016576 005737 002160 st NOITS ; ITERATIONS INHIBITED? 

3089 016602 001006 BNE 1$ YES. 

3090 016604 005737 002174 TST ave + NO. 

3091 016610 100403 BMI is }LOOPS DISALLOWED IN QUICK PASS. 

3092 016612 005337 002206 DEC LOOPCNT ; BUMP LOOP COUNTER. 

3093 016616 001002 BNE 2$ 
016620 000241 is: CLC ;LOOP DISALLOWED, OR DONE. 

3095 016622 000401 BR 3$ 

3096 016624 000261 2$: SEC ;LOOP ENABLED. 

soae 016626 000207 3$: RTS PC 

3099 _SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

3101 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG 

3102 } INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 

3103 } IN THE CURRENT RUN SEQUENCE. 

3104 } CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 

310 }INPUT: 

3108 : RO POINTER TO TEST ID ASCIZ STRING 

3110 }OUTPUT: 

3112 ; RS ADDRESS OF FIRST DEVICE REGISTER 

3114 }IMPLICIT OUTPUTS: 

3116 ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

3118 }SIDE EFFECTS: 

3120 ; INTERRUPT LEVEL IS RASIED TO LEVEL OF 

3121 ; THE DEVICE UNDER TEST 

3122 3 

3123 s- 

3134 

3125 016630 TSTSETUP: : 

3126 016630 010046 MOV _—_ RO, -( SP) ;SAVE THE TEST ID MESSAGE 

3127 016632 005037 0031 CLR SIFLAG ; CLEPA "SOFT INIT" FLAG 

3128 016636 005037 017076 CLR } CLEAR LOCAL ERROR COUNTER. 
16642 005037 0057 CLR TA 1 GEAR ERROR EXTENSION FLAG. 
16646 105037 01 CLRB  =—«INTMASK } ECEAR INTERRUPT MASK (CHECK ERROR) 

3131 016652 013700 002172 MOV —sUNTTN. RO } GET THE UNIT 

32 016656 300 : ... AND MAKE IT A WORD OFFSET. 

3133 016660 005737 003106 TST NODEV ; 616 STARTUP FIND THE DEVICE? 

3134 016664 001430 BEQs48 ; BR IF 

3135 016666 100010 BPL 3% } BR IF NOT IDLE 


B/ 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
3136 016670 052760 160000 003170 BIS #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3137 016676 ERRDF 1,NXR,NXRERR ; NO DEVICE HERE -- PRINT IT 
016676 104455 TRAP CSERDE 
016700 000001 .WORD 1 
016702 003740 [WORD NXR 
016704 005736 “WORD NXRERR 
3138 016706 000407 BR 2$ 
3139 016710 052760 160001 003170 33: BIS #160001 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3140 016716 ERRDF 2,NOINIT ; DEVICE NOT IDLE 
016716 104455 TRAP C$ERDF 
016720 000002 .WORD 2 
016722 004335 "WORD NOINIT 
016724 000000 "wORD 0 
3141 016726 012737 177777 003104 23: MOV #-1,DUFLG ; DROP THE UNIT 
3142 016734 DODU —sUNITN 
016734 013700 002172 MOV UNITN, RO 
016740 104451 TRAP C$DODU 
3143 016742 DOCLN ; ABORT THE PASS 
016742 104444 TRAP _ C$DCLN 
3144 016744 000423 BR 5$ 
3146 016746 4$: RFLAGS RO ; GET THE OPERATOR FLAGS. 
016746 104421 TRAP  C$RFLA 
3147 016750 032700 001000 BIT OPNT,RO ; PRINT THE TEST NUMBERS? 
3148 016754 001412 BEQ 1$ ; BR IF NO 
3149 016756 011600 MOV (SP),RO ;GET THE ID MESSAGE 
3150 016760 PRINTF #TNAM,RO :DISPLAY THE TEST ID 
016760 010046 MOV RO, -(SP) 
016762 012746 017024 MOV @TNAM, -( SP) 
016766 012746 000002 MOV #2,-(SP) 
016772 010600 
016774 104417 TRAP = C$PNTF 
016776 062706 000006 ADD #6, SP 
3151 017002 005237 002204 1s: INC TSTCNT ; BUMP TEST COUNTER. 
3152 017006 SETPRI IPRI ;PRIORITY THAT OF DEVICE 
017006 013700 002202 MOV IPRI,RO 
017012 104441 TRAP C$SPRI 
3153 017014 005726 S$: TST (SP )- ;FIX UP THE STACK 
3154 017016 013705 002176 MOV CSRADOR RS ; ADDRESS OF TSV REGISTERS ON UNIBUS 
3155 017022 000207 RTS Pp 
3136 017024 045 123 045 NAM: -ASCIZ 'SS8TSA Test’ 
3158 “SBTTL TSTEND - PRINT ERRORS RECEIVED 
H 
3160 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
3161 ; IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 
3163 017040 $STEND: RFLAGS RO 
017040 104421 TRAP  C$RFLA 
3164 017042 030027 020000 BIT RO, #IER 
3165 017046 001412 BEQ 1$ ; BR IF “IER” NOT SET. 
3166 017050 PRINTF #€SUM,ERRK ; PRINT ERROR COUNT. 
017050 013746 017076 MOV ERRK, -(SP) 
017054 012746 017100 MOV @ESUM, -( SP) 
017060 012746 000002 MOV 02,-(SP) 
017064 01 MOV P, 


tj 
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TSTEND - PRINT ERRORS RECEIVED 
017079 062706 000006 
36? 017074 000207 


3169 017076 000000 

3170 017100 045 101 
3171 017117 105 122 
3172 


040 
122 


ADD 
1$: RTS 


ERRK: 

ESUM: . ASCIZ 

EMAXDU: .ASCIZ 
.EVEN 


#6,SP 
PC 


; LOCAL ERROR COUNT. 
7#A_#D8A_ ERRORS/ 
ZERROR LIMIT REACHED -- DROPPING UNIT/ 


SEQ 0080 
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INCERK 
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- INCREMENT LOCAL ERROR COUNT 


001013 
012737 


104455 
000004 
017117 
000000 


017076 
002172 
003170 
007777 


017076 


000040 
177777 


002172 


002162 


003104 


SEQ 0081 


- INCREMENT LOCAL ERROR COUNT 


3° 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


.SBTTL INCERK 

iNCERK: INC ERRK 
MOV -(SP) 
MOV UNE IN, RO 
ASL 
ADD SERTABL RO 
INC (RO) 
BIT $7777, (RO) 
BNE 1$ 
DEC (RO) 

1s: MOV (SP)+,RO 
RTS PC 

CKEMAX: MOV RO, -(SP) 
MOV UNITN, RO 
ASL 
MOV ERTABL (RO), RO 
BIC 9170000 ,RO 
CMP RO, GERRMAX 
BHIS 1$ 
CMP ERRK , LERRMAX 
BLO 2$ 

1$: RFLAGS RO 
TRAP  C$RFLA 
BIT $1DU,RO 
BNE et 
MOV $-1,DUFLG 
RR 4, EMAXDU 
RAI cter ERDF 
. WORD 
; WORD EMAXDU 
“WwORD O 
DODU = UNITN 
MOV UNITN, RO 
TRAP C$D0DU 

LN 

TRAP C$DCLN 

2s: MOV (SP )-,RO 
RTS 


eS al LOCAL ERROR COUNT 
GET UNIT NUMBER 
.. AND MAKE ITA WORD OFFSE 
RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
p70 WE OVERFLOW THE FIELD? 


R IF 
YES -- BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 


SAVE RO 

GET UNIT NUMBER 
... AND MAKE IT A 
GET ERROR TABLE ENT 
EXTRACT ERROR COUNT FIE LD 

as a LIMIT EXCEEDED FOR THIS UNIT? 
23 40 LOCAL LIMIT EXCEEDED FOR THIS TEST? 


GET OPERATOR FLAGS 
S DROPPING INHIBITED? 


I 
BR IF YES. 
NO -- DROP THE UNIT 


veno OFFSET 


RESTORE RO 
RETURN TO CALLER 





E/ 
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CKDROP - CHECK IF UNIT 


017322 


017370 
017370 


32 017374 


017376 


3240 017412 


017414 


3246 017420 


017422 
017424 
017426 


3250 017434 
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SHOULD BE DROPPED 


000040 


177777 
002172 


016114 


003124 


003124 


000000 


003104 


177572 


177572 


SEQ 0082 


-SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
s¢ 
; CHECK IF UNIT SHOULD BE DROPPED 
io 
CKDROP : aolad RO, -CSP) 


ORCERROR 1$,NOTSSR 
RFLAGS RO 
P  C$RFLA 
BIT #IDU,RO 
mio 
MOV #-1,0UFLG 
DODU TN 
MOV UNITN,RO 
TRAP C$D 
DOCLN ;ABORT THE PASS 
TRAP C$DCLN 
1s: MOV (SP)-,RO 
RTS PC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


éonr IG: 
se PC, SOFINIT 
"SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
} SUBROUTINE - ENABLE MEM MGT. 
KTON: TST KTFLG ; GOT KT? 
BEQ 1$ ; NO. 
MOV #1,SRO ; YES. ENABLE KT12. 
1$: RTS PC 


; SUBROUTINE - DISABLE MEM MGT. 


KTOFF: TST KTFLG ; GOT KT112 
BEQ 1$ ; NO. 
NOP 
MOV #0, SRO ; DISABLE KT. 
1s: RTS PC 


F7 
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SETMAP - SETUP PAR6 MAPPING 


3273 017442 005737 003124 


3280 017502 042701 000177 
3281 017506 020137 003124 


103011 
3283 017514 010137 172352 
3284 017520 160000 
asec 017524 062702 120000 


S42 
3308 017546 004737 017414 


. SBTTL 


3? 
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SEQ 0083 


SETMAP - SETUP PAR6 MAPPING 


3 
;THIS ROUTINE SETS UP KERNEL PAR6 TP_HANDLE 
3;AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 


sIS RETURNED BIASED TO PAR6E. 


} INPUTS: 


; RO 
$ R1 


; 
j 
; 
; 
SETMAP ; 


INPUTS: 
RO = 
FREE 
KTFLG 
OUTPUTS: 


NONE 


FILLMEM: 
SAVREG 
JSR 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 


SET IF SUCCESS 
CLR IF ERROR 


$177,R1 

R1,KTFLG 
10% 

R1, aOKIPARS 
#160000 ,R2 

+ a oat eRe 


15$ 


;SAVE R1-R4 UNTIL NEXT RETURN 
sSYSTEM HAVE ABOVE 28K? 


BR IF NO 
sSAVE LOW ORDER BITS 


sCONVERT WORD ADDRESS TO 32W BLOCKS 
sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
swe EXISTING MEMORY? 


;BR IF 
sSETUP MAPPING REGISTER PARS 
;SETUP DISPLACEMENT IN PAGE 
;ADD IN — BIAS 

;RETURN IN RO 

“ale Success 


iSET FAILURE 


PC 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


FILL MEMORY WITH A BACKGROUND PATTERN 


BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


PC ,KTOFF 


SAVE a - -R5 wre. NEXT RETURN 


G/ 
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FILLMEM 


- FIL 


017776 
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MEMORY WITH BACKGROUND PATTERN 


MOV RO,R3 
003116 MOV FREE,R1 
003120 MOV FRESIZ R2 

10$: MOV R3,(R13« 
DEC R2 
BGT 10$ 
003124 TST KTFLG 
BEQ 55$ 
017376 JSR PT, KTON 
CLR R 
003144 MOV PST32W,R1 
LREPT 6 
CLC 
ROL R1 
ROL RO 
017436 JSR PC, SETMAP 
30$: MOV R3, (RO)+ 
140000 CMP RO, #140000 
BLO 30$ 
020000 SUB #20000 ,RO 
000200 172352 ADD $200, a®KIPARS 
172352 006000 CMP aGKIPARS , #6000 
a 
BEQ 50$ 
003136 TST T23A 
BEQ 35$ 
177572 MOV SRO,R4 
177761 BIC #177761,R4 
000016 CMP 16,R4 
BEQ 50$ 
003140 35$: TST 7238 
BEQ 45$ 
172352 007600 CMP APKIPARS , #7600 
BHIS 40$ 
BR 45$ 
000020 172516 40%: MOV $20, SR3 
017662 45$: JUMP $ 
017414 50$: JSR PC, KTOFF 
55$: RTS PC 


SEQ 0084 


;COPY TEST PATTERN 

;GET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
;STORE A BACKGROUND WOR 

;DONE ALL MEMORY IN FREE SPACE? 
;68R IF NO 

; GOT KT? 

: NO. GET Out. 

; YES. ENABLE 

sHIGH ORDER GODRESS s 

;GET >28K START SooRess" CIN 32W BLOCKS) 


;CLEAR C BIT 
s;CONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PARS MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADDRESS 
ted PARS MAPPING AREA? 


;BACKUP INTO PARS MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY BELOW XMON AREA? 


;68R IF YES 


;GET SRO* CONTENTS 

;CLEAR ALL ae! PAGE NUMBER 
;SEE IF PAGE 7 

sEXIT IF THERE 

311/238? 

3;NO KEEP GOING 

sREACHED 18 BITS? 


3YES 

:NO KEEP GOING 

sSET 22 BIT ye 
sKEEP GOING ON ETC. 

; DISABLE KT. 


H7 
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CMPMEM 


- COMPARE MEMORY TO BACKGROUND PATTERN 


= BACKGROUND PATT 
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CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


TTERN 
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


- SET IF NO ERROR 


- CLR IF ERROR 


- ERROR HIGH ADDRESS 
- ERROR LOW ADDRESS 


EXPECTED DATA 
RECEIVED DATA 


.SBTTL 
3 i 
3 
3 
3; INPUTS 
3 
: 
F REE 
8 KTFLG 
3 
; OUTPUTS: 
3 
3 CARRY 
3 CARRY 
3 
; IMPLICIT OUTPUTS 
3 
3 ERRHI 
3 ERRLO 
3 EXPD 
3 RECV 
a 
0 CMPMEM: 
020000 SAVREG 
020004 010003 MOV 
004737 017414 JSR 
020012 013701 003116 MOV 
020016 013702 003120 MOV 
020022 020311 10$: CMP 
020024 001411 BEQ 
020026 010137 002232 MOV 
020032 5037 CLR 
020036 010337 002224 MOV 
020042 011137 002226 MOV 
020046 BR 
020050 005721 15$: TST 
020052 005302 DEC 
020054 003362 BGT 
020056 005737 003124 TST 
020062 001472 BEQ 
0 004737 017376 JSR 
020070 005000 CLR 
020072 013701 003144 MOV 
000006 REPT 
ROL 
ROL 
.ENDR 
020126 042701 000177 BIC 
020132 0O MOV 
020134 010146 MOV 
020136 004737 017436 JSR 
020142 010004 MOV 
020144 012601 MOV 
020146 012600 MOV 
020150 020314 30$: CMP 
020152 001411 BEQ 
020154 010037 002230 MOV 


RO, ERRHI 


sSAVE R1-R5 ard. NEXT RETURN 
;COPY vee PATTERN 
;OISABLE K 
3GET FIRST "eReE LOCATION 
sSIZE OF FREE SPACE BELOW 28K. 
iFREE SPACE LOCATION EQUAL TO EXPD? 
;BR IF YES 
sSAVE ADDRESS IN ERROR 
ADDRESS 


sNO HIGH S 
; SAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


;POINT TO NEXT ADDRESS 
s DONE _ MEMORY IN FREE SPACE? 


R ADDRESS STAR 
iGET >28K START ADDRESS CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 


ORDER 
;SETUP PAR6 MAPPING REGISTER 
sCOPY ADDRESS BIASED TO PAR6 


I N 
sABOVE 28K LOCATION EQUAL EXPD? 
sBR IF YES 
sSAVE HIGH ORDER IN ERROR 


SEQ 0085 


17 
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CMPMEM 
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- COMPARE MEMORY TO BACKGROUND PATTERN 


306 
S58 020310 


020312 


010137 


002232 
002224 
002226 
000002 


000002 
140000 


020000 
000200 
172352 
017414 


017414 


000012 


172352 
003124 


;SAVE LOW ORDER IN ERROR 
s;SAVE EXPD FOR ERROR REPORT 
“ee RECV FOR ERROR REPORT 


;UPDATE NON PAR6 ADDRESS 
;MAKE IT DOUBLE PRECISION ADD 
;UPDATE PAR FORMAT ADDRESS 
sEND_OF PARS MAPPING AREA? 
;BR IF NO 

sBACKUP_INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND_OF MEMORY? 

;BR_IF NO 

;TURN OFF MEMORY MAPPING 

_ FAILURE 


TURN OFF MEMORY MAPPING 
;SET SUCCESS 


- SAVE R1-RS ON STACK 


CALLING ROUTINE, 


AT THE END OF THE 
} THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


MOV R1,ERRLO 
MOV R3,EXPD 
MOV (R4),RECV 
BR $ 
32$: ADD #2,R1 
ADC RO 
ADD 92,R4 
CMP R4. #140000 
BLO 30$ 
SUB g2 R4 
ADD $200, AMKIPARS 
MP aK IPARS ,KTFLG 
BLOS 30$ 
50$: JSR PC, KTOFF 
CLC 
BR 60$ 
55$: JSR PC ,KTOFF 
SEC 
60$: RTS PC 
.SBTTL REGSAV 
3° 
H 
;ROUTINE TO 
;SAVE R1 THROUGH RS ON THE STACK 
H 
;CALLING SEQUENCE: 
: 
JSR RS, REGSAV 
:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. 
;REGISTERS. 
;CALLED VIA A USR PC INSTRUCTION 
3 
Ta 
REGSAV: 
Vv R4,-CSP) 
MOV R3,-CSP) 
MOV R2,-(SP) 
MOV R1,-(SP) 
MOV RS,-CSP) 
MOV 10.(SP),R5 
JSR PC; acsP). 
MOV (SP)+,R1 
MOV (SP )- ~R2 
MOV (SP)+.R3 
MOV (SP)+,R4 
MOV (SP)+.R5 
RTS PC 


SEQ 0086 





J7 
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GETPAT 
3461 
3462 


020314 


105 
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- GET 8 BIT PATTERN FROM OPERATOR 


020350 


116 


124 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
iad 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM int OPERATOR 
; 
INPUTS: NONE . 


H 
iOUTPUTS: 
; RO OCTAL NUMBER FROM THE OPERATOR 
H 
}CALLING SEQUENCE: 
3 JSR PC ,GETPAT 
Seg 
GETPAT:: 
SAVREG SAVE THE GENERAL REGISTERS 
1s: GMANID DATASC,PATDAT,O,377,0,377,NO 
TRAP C$GMAN 
BR 1 
.WORD PATDAT 
“WORD ‘T$ 
.WORD DATASC 
“WORD 377 
“WORD T$LOLIM 
“WORD ‘T$HILIM 
10000$: 
BNCOMPLETE 1s RETRY IF ERROR 
MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
RTS PC ;RETURN TO CALLER 


;LOCAL DATA AREA 
od 


PATDAT: .WORD O ; TEMPORARY STORAGE FOR DATA 
DATASC: a "ENTER DATA PATTERN’ 


SEQ 0087 


7 
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GETSEL 


3506 
3507 


000000 
177777 


103352 
013700 
020001 
101411 
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- ISSUE MENU AND GET OPERATOR RESPONSE 


.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3° 
;ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 
; 
; INPUTS: 
; RO ADDRESS OF ASCIZ STRING OF MENU 
; Rl MAXIMUM ALLOWABLE OPERATOR RESPONSE 
: 
3; OUTPUTS: 
: RO NUMBER OF THE OPERATOR'S SELECTION 
+. 
GETSEL:: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 :SAVE THE MENU ADDRESS 
1$: MOV R2.R3 ;START OF MENU STRING 
2$: TST (R3) ;END OF ASCII ? 
BEQ 3$ ;BRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,(R3)+  ;DISPLAY THE MENU 
MOV (R3)-,-¢ 
MOV @SELASC, -(SP) 
MOV #2,-(S5P) 
MOV SP; RO 
TRAP CSPNTF 
aR — 
3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
TRAP $ 
BR 10001$ 
.WORD MENRES 
"WORD  TSCODE 
:WORD MENASC 
.WORD -1 
:WORD TS$LOLIM 
‘WORD TS$HILIM 
10001$: 
BNCOMPLETE 1$ ;RETRY IF ERROR 
MOV MENRES , RO ;GET THE OPERATOR'S REPLY 
CMP RO,R1 ;COMPARE TO MAXIMUM ALLOWED 
BLOS S$ ;BRANCH IF OK 
PRINTF #ME ;DISPLAY ERROR MESSAGE 
MOV OMENERR, - 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD $4,SP 
BR 1$ sRETRY 
S$: RTS PC ;RETURN TO CALLER 
MENERR: .ASCIZ ‘sSNA ##* Menu Selection Too Large ++#*' 
SELASC: .ASCIZ ‘ssNeT’ 
MENASC: .ASCIZ ‘Enter Menu Selection: ' 
‘EVEN 
MENRES: r) 


SEQ 0088 


L/ 
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SEQ 0089 
CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
$322 .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
| id 
3523 ; 
sess sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
H 
3526 ; INPUT: 
3527 3 
3528 ; NONE . 
3529 3 
ses, ;OUTPUT: 
; 
3532 ; CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
3233 : 1 MANUAL INTERVENTION IS OK 
; 
3239 ;SIDE EFFECTS: 
3 
3537 : A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3538 ; NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3539 ; ALLOWED. 
3540 3 
3541 z- 
3542 
3543 020620 CHKMAN; : 
3544 020620 SAVREG ;SAVE THE REGISTERS 
3545 020624 MANUAL ;SEE IF MANUAL INTERVENTION OK 
020624 104450 TRAP C$MANI 
3546 020626 BCOMPLETE 1$ ;BRANCH IF ALLOWED 
020626 103411 BCS 1$ 
3547 020630 PRINTF #NOMAN ;PRINT THE WARNING MESSAGE 
020630 012746 020654 MOV @NOMAN, - (SP) 
020634 012746 000001 MOV #1,-(SP) 
020640 010600 MOV SP ,RO 
020642 104417 TRAP CSPNTF 
020644 062706 000004 ADD 04,SP 
3548 020650 000241 CLC ;CLEAR CARRY FOR ERROR 
3349 020652 000207 1$: RTS PC ;RETURN 
3551 020654 045 116 045 NOMAN: .ASCIZ ‘SNA ##* Manual Intervention not Allowed - Test Aborted +*++' 


3552 even 


M7 


TSV3 - GLOBAL AREAS 


ENVIRN 
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- SETUP FREE DIAGNOSTIC SPACE 


000002 
016516 
177520 


000001 
177520 
177520 


003136 
170000 


003140 


003116 
003120 
003120 


- SBTTL 


ENVIRN 


- SETUP FREE DIAGNOSTIC SPACE 


; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: MEMORY 
AP 


10$: 


15$: 


R 
cs 
RO 


$7, FRESIZ 
R2 

108 

FRE 

FResiz, RO 
RO; FREEHI 
@BDVPCR. RI 


; GET 1ST FREE ADDRESS... 
;...AND WORD COUNT. 

; GET NUMBER OF UNITS 

3; TAKE AWAY 7 WORDS PER UNIT 


s;GET FIRST FREE ADDRESS 

sPOINT TO LAST FREE ADDRESS 

sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 

[ESSERE SESESESESESE SESE SESE S ESE SESE EE EEES 
Mt i ADDRESS 


TO te 


son COULD BE WRONG 
3;BR 40$ FOR RELEASE 
saett THE SYSTEM TYPE 
RETURN 
iSET THE FLAG 
;BR 40$ FOR RELEASE 
sTELL THE SYSTEM TYPE 


;RETURN 


SEQ 0090 


N7 
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KTINIT 


3596 
3597 
3598 
3599 


3601 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


3603 02 


3607 


1 
3611 
3612 
3613 


3614 021204 
3615 021206 


3616 
3617 


3618 021224 


3619 


3621 0212 


021 

021272 
021274 
021300 


012716 
900002 


010037 
000207 


021266 
177572 
002120 
007777 
003777 
000177 
000004 
172340 
077406 
000200 
002000 


001577 
000004 
003124 
003124 


003124 
003124 


177740 


-SBTTL KTINIT 


}ROUTINE TO INIT KT-11 
3 


g= 
KTINIT: 


Va 
oun 


2$: 


6$: 
9$: 


RTS 


KTFLG 
KTENABLE 
L¢HIME , 61577 
APERRVEC RO 
$2$ , AVERRVEC 
aesRO 


L$HIME ,KTFLG 
07777 ,KTFLG 


As 

gorre ree 
0177 ,KTFLG 
RO, @@ERRVEC 


°° 
@KIPARO,R1 
977406, -40(R1) 
RO,CR1)+ 

#200, 

RO, #2000 
#177600, -(R1) 
9$ 

#6$,(SP) 


RO, AERRVEC 
PC 


- SETUP 


KT11 MEMORY MANAGEMENT REGISTERS 


INIT >28K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH 


MEMORY (>28K)? 


NO. 
SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 

GOT KT11? 

(TRAP IF NO). 

YES. SET KT FLAG. 
>256K ? 


NO 
ALIGN ON BOUNDARY 


RESTORE OLD ERR VEC PTR. 
AR DATA. 


RO = 
Rl = KI 


YES. SET KTPAR7 FOR 1/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 


SEQ 0091 


B8 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3636 


C8 
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SEQ 0093 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


* 


: 
3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
; 
3641 ; Requires that SOFINIT and WRTCHR have been done previous to call. 
; 
; 
; 


INPUTS: 

3645 3 RS CURRENT UNIT NUMBER 

3646 ;OUTPUTS: 

3647 ; The Extended Features Switch is set. 
3648 ; 

3649 z- 


D8 


TSV3 - GLOBAL AREAS 


KTINIT 
3653 
54 
3655 
S6 
3657 
3658 
3659 
3660 
3661 


RRS 


3665 


3667 
3668 
3669 
3670 
3671 


02 
021456 


013705 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


002176 
016114 


002172 
SO 


021500 
000200 


100206 
022230 


000006 
100010 
022220 
010752 


022170 





3° 
3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
3 
3 Requires that SOFINIT and WRTCHR have been done previous to call. 
8 
3 
; INPUTS: 
3 RS CURRENT UNIT NUMBER 
;OUTPUTS: 
F The Extended Features Switch is set. 
3 
3- 
INVERT: 
mov csraddr ,r5 
jsr pc, sofinit 
s 2e5$ 
mov » r0,rl ° . 
errd errno,sfierr,sfimsg 
TRAP  C$ERDF 
-WORD 843 
.WORD sfierr 
-WORD sfimsg 
25% ~~ trap cterdf 
TRAP C$CLP1 
mov unitn,t3 
mov cg og 
jsr swrtchr 
bcs B53 
—, * r0,rl ‘ 9 
errhr errno,wrtmsg,st imsg 
TRAP CSERHRD 
-WORD 843 
. WORD wetnee 
. WORD sf imsg 
trap cterhrd 
50$: ck loop 
TRAP C$CLP1 
mov t39bfr+l2,rl 
bit @bit7,rl 
bre 1$ 
10$: MOV #100206 , CMDPKT ; WRT SUB-SYS MEM CMD 
MOV OWSMBK , CMDPKT +2 ; MSG BUF ADOR 
MOV 96, CMDPKT +6 ; BYTE COUNT 
MOV #100010, WSMBK ; INVERT THE SWITCH 
MOV oCMDPKT ,R4 ; SET CMDPKT INTO R4 
JSR PC,WRTCHR ; DO IT 
1$: RTS ; RETURN 
T39DLY: .WORD O ;DELAY COUNTER FOR TEST 
~*=<,°10>E€177770 
T39PACKET : :;COMMAND PACKET FOR ay 
. WORD 140006 WRITE SUBSYSTEM MEM. CvC-1 
- WORD TS9TAD :ADDRESS OF CHARACTERISTICS Bock 


‘WORD 10. sSTARTING VALUE OF BLOCK SIZE 


SEQ 0094 


E8 
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MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 73-1 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


022210 
022212 
022214 
022216 


022210 
140005 


000000 
000000 
000400 


T39TAD: 
T39BSO: .BYTE 0 
T39BS1: .BYTE 0 
T39BS2: .WORD 0 

. WORD 0 
T39BFR: .BLKW 150. 

.=<,+«10>€177770 
T39PKe2: 

. WORD 140004 

. WORD T39DTA 

. WORD 0 

. WORD 10. 
T39DTA: 

. WORD T39BFR 

. WORD 0 

. WORD 256. 
T39EAI: .WORD 0 
T39DSW: .WORD 0 

=<. *10>€177770 
T39PK3: .WORD 140012 

. WORD 0 


;WRITE TAPE PACKET 


‘ _ =<. #102E177770 
T39PK4; | 140005 


SEQ 0095 


;CHARACTERISTICS DATA BLOCK 
;BSELO BYTE 


;BSEL1 BYTE 
iBsela WORD 


;MESSAGE BUFFER 


;COMMAND PACKET FOR TEST 
;WRITE CHARA. MEM. CMND., ACK,CVC=1 
sADORESS OF SELECT DATA BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
;SELECT DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
;EAI BIT WORD 

sDRIVE SELECT WORD ETC 


;MESSAGE BUFFER RELEASE COMMAND 
sNOT USED 


re 3 ACK, CVC=1 COMMAND 


WORD 
T39WR: [WORD 0 DORESS OF WRITE BUFFER 
. WORD 0 +MORE Reoese OF WRITE BUFFER 
T39SIZ: .WORD 256. } SIZE OF RECORD 
3 COMMAND PACKET. 
‘ = <.+*3>E€177774 sMUST BE ON MOD 4 BOUNDRY. 
CMDPKT:: O 31ST WORD IS TSOS COMMAND. 
(¢) 32ND WORD IS THE BUFFER LOW ADDRESS. 
0 33RD WORD IS THE BUFFER HIGH ADDRESS. 
0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
WSMBK:: O 31ST WORD:: SEL O 
r¢) 32ND WORD:: SEL 2 
r?) 33RD WORD:: SEL 4 
-EVEN 
; SUBROUTINE TO CHECK WETHER OR NOT WE’LL TEST NXM 
3 
3 
s INPUTS: 
;OUTPUTS: 
; The NXMFLG is set if we can test. 


; The NXMLO and NXMHI addresses are setup. 


F8 


TSV3 - GLOBAL AREAS 


KTINIT 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


022412 
022416 


022474 


6 022500 


013701 
062701 
042701 
010102 
000006 


010137 
000012 


042702 
010237 


022412 
003136 
002120 
002120 
022412 
002120 
022412 


000077 
003130 


005460 
000001 


002120 
000200 
000177 
003132 


177700 
003134 


007777 


005777 


003777 


001577 


003134 


MEMCK: : 
SAVREG ;SAVE THE REGISTERS 
CLR MFLG ;CLEAR THE FLAG 
CLR NXMLO ;CLEAR THE TEST ADDRESS LO 
CLR NXMHI ;CLEAR THE TEST ADDRESS HI 
tsT 1238 :1S IT A 11/238? 
3 
CMP L$HIME , #7777 ; GREATER THAN 128K 
BLO 2$ ; NO 
JSR PC .NXMTST SETUP THE ADDRESS 
BR 133 3SET THE FLAG AND EXIT 
1s: st 125A iis IT A 11/23A? 
2$: CMP L$HIME , #5777 GREATER THAN 96K 
BHI 14 i YES, 23A/238 WITH 128K MEMORY 
CMP L $HIME , #3777 ;GREATER THAN 64K BUT LESS THAN 92K? 
BLO 4$ 3NO, CHECK 24K 
JSR PC ,NXMTST ;SETUP THE 
BR 13 ;SET THE FLAG AND EXIT 
4$: CMP L $HIME , #1577 :GREATER THAN 24K BUT LESS THAN 64K? 
BLO 14$ TELL THEM AND EXIT WITH FLAG CLEAR 
JSR PC, NXMTST eeTUP HE ADDRESS 
ADD $77 , NXMHI ;FOOL He 11/02 & 11/03 
13$: INC NXMFLG ;SET THE FLAG 
BR 15$ ;EXIT 
143: BR 15% ;NOP FOR PRINTOUT 
PRINTF #NOMEM TELL THEM & EXIT #*#*NO PRINTseee« 
MOV @NOMEM, - (SP) 
MOV #1,-(SP) 
MOV SP. RO 
TRAP CSPNTF 
ADD $4,SP 
15$: RTS PC ; RETURN 
3° 
; SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 


3 
3 OUTPUTS : NXMLO , NXMHI 


NXMTST: MOV 
ADD 


Lee R1 
9200 ,Ri 
#177,R1 


6 . 
R1 
R1,NXMLO 
10. 
R2 
ad 


mai 


;SETUP WITH NXM ADDRESS 


sGET TOP OF MEMORY 

sMAKE IT I/O BLOCK OR OTHER NXM 
sRESAVE RESULTS 

sPUT IN PLACE FOR XFER 

sSAVE TEST ADDRESS LOW 

sPUT IN PLACE FOR XFER 


sD00N‘'T WANT ILA! 
sSAVE TEST ADDRESS HIGH 


SEQ 0096 


TSV3 - GLOBAL AREAS 


KTINIT 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


022504 
8 


022506 


022506 
022506 


022516 


000207 


avvvve Qyrvev svrrvy 


TSV4:: 


RTS 


ENDMOD 
. TITLE 


BGNMOD 


. WORD 
ENDPROT 
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PC ;RETURN 


TSV4 - MISCELLANEOUS SECTIONS 
TSV4 


PROTECTION TABLE 


“1, -1, -1. -i sNO DEVICE PROTECTION REQUIRED. 


SEQ 0097 


H8 


TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


3845 


3884 
3885 


022516 


002172 
003104 
002172 
003170 
040000 


000035 


000037 
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002170 


002012 


003170 


-SBTTL INITIALIZE SECTION 


3°? 
sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


VIF "START" OR “RESTART” 
"CONTINUE", 


31F 
3 
Routed 


PINSERT TEMPORARY JUMP TO ODT 


1$: 


BGNINIT 
CLR EXTFEA 
CLR NXMFLG 
MOV #EPRT1,EPRTSW 
CLR SIFLAG 
CLR KTENABLE 
CLR RAMSIZ 
READEF #€F .CONTINUE 
V @EF . CONTINUE ,RO 


TRAP CS$REFG 
2 gatattaae | i$ 


cc 1 

CMP UNITN,L$UNIT 

BHIS 4s 

TST DUFLG 

BMI NXTU 

MOV UNITN,R1 

ASL R1 

TST ERTABL(R1 ) 

BEQ ETU 

BIT #B1IT14,ERTABL(R1) 

BNE NXTU 

EXIT NIT 

TRAP CS$ExIT 
10030- 

READEF #€F .NEW 

Vv @EF .NEW,RO 
AP CS$REFG 

BNCOMPLETE NXTU 

BCC NXT 

READEF #€F .START 

MOV @EF .START,RO 

TRAP CS$REF 

oT sate 2s 


B — 
READEF #€F .RESTART 
MO @EF RESTART, »RO 


BRESET 
TRAP CS$RESET 


SET QUICK-PASS FLAG AND BUS-INIT. 
NOTHING IS REQUIRED. 


;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
;CLEAR "SOFT INIT” FLAG 

;CLEAR TEST ABOVE 28K FLAG 

;CLEAR RAM SIZE FOR RAMERR ROUTINE 


sUNIT IN RANGE? 


:BR 
; DROPPED UNIT? 
;BR IF YES 


DROPPED? 
300 NOTHING IF “CONTINUE”. 


s; TAKE NEXT UNIT IF NOT NEW PASS. 


BUS-INIT... 


31ST PASS 
;BUS RESET. 


SEQ 0098 


TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


005037 
005037 
005037 
005037 


005037 
012737 


005037 


104444 
000240 


012001 
010137 


003372 


002174 
023014 


177777 
002210 


002172 
002172 


177777 


002012 
002210 


000100 


002172 


003104 
002210 
002176 
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002174 


002172 


002012 
003104 


000001 


20$: 


30$: 


31$: 


4$: 


NEWPAS: 


NXTU: 


11$: 
PASRPT: 


10$: 
SETU: 


CLR TSTCNT 
CLR FATFLG 
CLR T23A 
CLR 1238 
MOV $340, -(SP) 
MOV #20$,-(SP) 
JMP 0.00T 
CLR SKIPT 
MOV #-1,QVP 
JSR PC, ENVIRN 
JSR PC. KTINIT 
MOV #ERTABL ,RO 
CLR (RO)- 
CMP RO, 9ERTABE 
BLO 30$ 
BR 4$ 
CLR QvP 
JMP PASRPT 
MOV #-1,UNITN 
CLR DEVCNT 
BREAK 
TRAP CSBRK 
INC UNITN 
CMP UNITN,L$UNIT 
BLO SETU 
MOV $-1,DUFLG 
BR 11$ 

LN 
TRAP C$DCLN 
NOP 
CMP L$UNIT, #1 
BLOS  NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 
TRAP CS$RFLA 
BIT #ISR,RO 
BNE NEWPAS 
DORPT 
TRAP C$DRPT 

NEWPAS 

GPHARD UNITN,RO 
MOV UNITN.RO 
TRAP C$GPHRD 
BNCOMPLETE NXTU 
BCC NXTU 
CLR DUFLG 
INC DEVENT 
MOV (RO)- 
MOV Ri, 2SRADDR 


i€ 


s;NUMBER OF TESTS RUN IN PASS 
;CLEAR FATAL ERROR COUNT 
sCLEAR 11/23A FLAG 

sCLEAR 11/238 FLAG 


RETURN TO DEBUGGER 


aaeNTER THe DEBUGEER 
LEAR THE SUBTEST “SKIPPER” 


-QUICK VERIFY. 
iSét 


;CLEAR THE ERROR TABLE 


:GO REPORT THE STATUS 


;INIT UNIT NUMBER. 


;CLEAR COUNT OF DEVICES RUNNING 


3...AND SET NEXT UNIT NUMBER. 


:ABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
;BR IF ONLY 1 

sARE ANY STILL RUNNING? 
;BR IF NO 


sSHOULD WE PRINT STATISTICS 
;BR IF NO 


;GET UNIT N P-TABLE POINTER. 


3B8R IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 
sGET 1ST REGISTER ADDRESS 


;ADDRESS OF REGISTERS OF UNIT UNDER TEST 


ENVIRONMENT. 
;INITIALIZE KT MEMORY MANAGEMENT 


SEQ 0099 


J8 


TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


36 
M 023074 


023076 
023102 
023106 


023112 


S2 023112 


012001 


010137 
012721 
013721 


013701 
006301 
052761 
005037 
023727 
101416 


3005 
010137 
012737 


012700 
104441 


104411 
045 


002200 
016336 
002202 


002172 


003106 
002176 


000002 
016516 


003106 
177777 


116 
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(RO)+,R1 
(RO),R2 
R2, TPRI 


R1.1I 
ennTe, FR )s 
T,(R1)- 


QvP 
S$ 


rae haw SEQ 0100 


;GET VECTOR ADDRESS. 

3GET INTERRUPT PRIORITY 

;SET INTERRUPT PRIORITY 

“tne INTERRUPT VECTOR POINTER. 
ey OR. 
-AND PRIORITY. 


31ST PASS ?? 
3NO, SKIP THE PASS 1 STUFF. 


:1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
sTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


003170 
000001 


10$: 


003104 
2s: 


UNITN, RI 
#B1T15,ERTABL(R1) ;SAY DEVICE RUNNING 

EXTA }CLEAR ERROR EXTENSION FLAG. 
L$UNIT, #1 ;ARE WE TESTING MULTIPLE UNITS? 
10$ :BR IF NO. 

RO ;YES -- GET OPERATOR FLAGS. 
C$RFLA 

$PNT RO ;SHOULD WE PRINT UNIT #? 

o$ ;BR IF NOT 

@PUNIT , UNITN ;PRINT THE UNIT @ 

UNITN, -(SP) 

@PUNTT , -( SP) 

#2.( SP) 

CSPNTF 

#6, SP 

NODEV 

CSRADDR,R1 sADDRESS OF FIRST REGISTER 
R1,R2 ;START OF REGISTERS 
#TSSR,R2 ;ADDRESS OF TSSR REGISTER 
PC, XNXM sTEST BOTH CONTROLLER REGISTERS... 
2$ AND BR IF ALL OK. 
R1,NODEV iFLAG DEVICE aS NON-EXISTENT 
@-1,DUFLG ;DROP THIS UNIT 


; 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 


bs; 


L10030: 


045 PUNIT: 


SETPRI 
MOV 


TRAP 


pom ye 


CsINIT 


sENABLE INTERRUPTS. 


eee /SNSNSAseeee TESTING UNIT SD28A eeeee/ 


K8 


TSV4 - MISCELLANEOUS SECTIONS 
ADD AND DROP UNITS SECTIONS 


3961 
3 


4017 


023312 


104452 


012737 


100000 
040000 


023360 
000002 
000006 


116 


177777 


140000 
000240 


023464 
000002 


000006 
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-SBTTL ADD AND DROP UNITS SECTIONS 


; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST 
j OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY "BROBPED. 
g°= 
BGNAU 
L$AU 
MOV RO,R1 ; GET UNIT Aly BE ADDED (RO) 
ASL Ri ; MAKE IT A WORD INDEX 
003170 BIS #100000, ERTABL(R1) ; SET THE “ACTIVE” BIT 
003170 BIC 40000, ERTABL(R1) ; CLEAR THE “DROPPED” B1T 
PRINTF #1$,R0 
RO, -(SP) 
MOV 01$,-(SP) 
MOV #2,-(SP) 
Vv SP 
TRAP CSPNTF 
EXIT A 
[WORD 1L10031-2-. 
045 1s: [ASCIZ /ssNsA UNIT sDssA ADDED/ 
EVEN 
ENDAU ; UNUSED. 
L10031: 
TRAP CsaAU 
see 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE REMOVED FROM THE TEST LIST. 
7 
; SUPVSR DOES THE “DROPPING”. THIS IS Just TO TELL THE MAN. 
; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
; WHICH ARE STILL ACTIVE. 
; ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
BGNDU 
L$DU:: 
003104 MOV 1,0UFLG 
MOV Ro. mY 
ASL R1 
003170 BIS #140000, ERTABL(R1) ; SAY DROPPED 
000240 240,240,240 3 22222222? 
PRINTF #1$,RO 
Vv RO, -(SP) 
MOV 01%, -(SP) 
MOV 2,-(SP 
MOV RO 
TRAP CSPNTF 
06,SP 
EXIT DU 
J$ UMP 


; ton ADD-UNIT SECTION CONTAINS THE CODING THAT he A DEVICE 


SEQ 0101 


L8 
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SEQ 0102 
ADD AND DROP UNITS SECTIONS 


4018 023464 045 116 045 18: .ASCIZ /sNSA UNIT sDsA DROPPED/ 
4019 "EVEN 
4020 023514 
023514 L10032: 
: 023514 104453 TRAP = C$DU 
402 3° 
4028 ; AUTO-DROP CODE SECTION. 
te 
4024 023516 BGNAUTO 
023516 L$AUTO:: 
4025 023516 013705 002176 MOV CSRADDR RS ;POINT 9 DEVICE REGISTER 
4026 023522 012703 000550 MOV $360. ,R3 ;ENOUGH TIME FOR 2400' REEL TO REWIND 
4027 023526 004737 016370 10$: JSR PC, WAIT rMATT FOR SSR TO SET 
4028 023532 103420 BCS 203 LEAVE WHEN SSR IS SET 
4029 023534 DELAY 250. }WAIT FOR .25 SECONDS 
023534 012727 000372 MOV $250. ,(PC)- 
023540 000000 . WORD 
023542 013727 002116 MOV L$DLY,(PC)+ 
023546 000000 . WORD 
023550 005367 177772 BEC -6(PC) 
023554 001375 BNE _-4 
023556 005367 177756 DEC -22(PC) 
023562 001367 BNE .-20 
4030 023564 005303 DEC R3 ;BUMP COUNTER DOWN 
4031 023566 001357 BNE 10$ ;KEEP GOING 
4032 023570 004737 017322 JSR PC, CKDROP ;TRY AND DROP UNIT 
4033 023574 208: 
34 023574 ENDAUTO ; UNUSED. 
023574 L10033: 


023574 104461 TRAP C$AUTO 


M8 


TSV4 - MISCELLANEOUS SECTIONS 
CLEAN-UP AND REPORT CODING SECTIONS 


023576 


013705 
005737 
100405 


012765 
004737 


104412 


002176 
003104 


000000 
016370 


024066 
000001 


024123 
000003 


000010 
160000 


024173 
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000002 


SEQ 0103 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


a 

; THE CLEANUP CODING SECTION CONTAINS te CRIS THAT IS 
; EXECUTED AT THE END OF EACH PASS 51S & ). 

; USE TO RETURN DEVICE UNDER Test TOA NEUTRAL STATE. 


ae BGNCLN 
L$CLEAN: : 
MOV 


CSRADOR,RS POINT TO DEVICE REGISTER 
TST DUFLG : "DROPPED" FLAG IS SET ON. 
BMI 1$ : . AND GROSS CONTROLLER FAULT. 
"DON'T TRY TO XCT CLEANUP CODE. 
MOV #0, TSSRCRS) ;D0 SOFT INIT 
- JSR PC; WAITF 
2$: ENDCLN 
L10034: 


TRAP C$CLEAN 


; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gee 


BGNRPT 
L$RPT:: 
PRINTS #DEVSUM 
MOV @DEVSUM, - (SP) 
MOV #1,-(SP) 
MOV SP ‘RO 
TRAP C$PNTS 
ADD 04, 
MOV R2,-(SP) 
MOV R3,- ) 
MOV R4.-(SP) 
MOV SERTABL ,R4 ; GET START OF ERROR TABLE. 
CLR R3 ; CLEAR UNIT NUMBER 
1s: MOV (R4),R2 ; GET ERROR TABLE ENTRY & TEST IT. 
Be a$ ; ZERO IF UNIT NOT 
BIT $B1T14,R2 ; WAS UNIT DROPPED? 
BNE $ ; BR IF YES 
BIC $1C7777,R2 ; GET ERROR COUNT FIELD 
PRINTS @DEVONL.R3,R2 ; PRINT 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV @DEVONL , -( SP) 
MOV 03,-(SP) 
MOV : 
TRAP  C$PNTS 
oe 
2s: CMP R2, #160000 ; WAS UNIT NON-EXISTENT? 
BNE 3$ ; BR IF NO 
PRINTS @DEVNXR R3 


MOV 
MOV SOEVNER, -(SP) 
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CLEAN-UP AND REPORT CODING SECTIONS 
000002 #2,-(SP) 
Vv SP; RO 
CSPNTS 
000006 DD #6, SP 


4g 
160001 8 + R2,4160001 ; WAS UNIT NOT READY AT STARTUP? 


; BR IF NO 

#DEVNAD ,R3 

MOV R3,-(SP) 

024255 @DEVNRD, -(SP) 

000002 #2,-(SP) 

SP ‘RO 

CSPNTS 

SP 


$ 
#107777 ,R2 


ONLINE, ERRORS = sDsN/ 

DROPPED, NON-EXISTENT REGISTERSN/ 
UNIT #D38A DROPPED, NOT READY AT STARTUPSN/ 
UNIT #D38A DROPPED; ERRORS = sDsN/ 





B9 
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CLEAN-UP AND REPORT CODING SECTIONS 
4103 .TITLE TSV7 - HARDWARE TESTS 1-8 
4104 
4111 
4112 024406 BGNMOD TSV7 
024406 TSV7:: 
4118 
4126 
4127 .SBTTL TEST 1: INITIALIZE #4 TEST 
£138 : 
H 
4130 ;THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
4131 ;CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
4132 :CI.€. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
4133 ;EXTENDED FEATURES SWITCH, ETC.) 
HY 
4135 i- 
4136 024406 BGNTST 
024406 Tl:: 
4137 024406 012737 006360 002170 MOV #EPRT1,EPRTSW ;SET UP PRIMARY ERROR MESSAGE 
4139 : 
4140 : 
4141 ;TEST 1 
4142 : 
4143 3 
4144 3- 
4145 
4150 024414 004737 016324 JSR PC ,DSBINT ;DISABLE INTERRUPTS 
4151 024420 012700 025344 MOV $TST211D,RO ;ASCII MESSAGE TO IDENTIFY TEST 
4152 024424 004737 016630 JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 
4153 024430 012737 000005 002206 MOV #5,LOOPCNT ;PERFORM S ITERATIONS 
4154 024436 T21L00P: 
4155 024436 004737 025366 JSR PC, T21REST ;SET COMMAND PACKET 
4156 024442 004737 025456 JSR PC, T21RT2 ;SET UP OTHER COMMAND PACKET 
aise FEES SESE ESE ES ESE SEE SESE SEEKS EES EEE SESE SESE TEESE EE EE ES 
41 ; 
4160 ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
i 
traf JESSE ESSE ESSE SESS ESSE EES SESE SESS SESE SESS SESE EEEEESEEEESE 
416 
4164 024446 012737 176750 025022 MOV #65000. , T21DLY ;SET DELAY ROUTINE 
4165 024454 004737 016114 1l$: JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
4166 024460 103426 BCS 203 :BR IF INIT WAS 
4167 024462 DELAY 250 ;DELAY FOR A REWIND TO FINISH 
024462 012727 000250 . MOV #250, (PC)- 
024466 000000 ; .WORD 0 
024470 013727 002116 : MOV L$DLY,(PC)- 
024474 000000 . WORD 
024476 005367 177772 BEC -6¢PC) 
024502 001375 BNE 
024504 005367 177756 DEC “23cec) 
024510 001367 BNE -20 
4168 024512 005337 025022 DEC T210LY ;BUMP COUNTER DOWN 
4169 024516 001356 BNE 11$ :BR, IF MORE TIME TO GO 
4170 024520 005237 002212 INC FATFLG ;BUMP COUN 
4174 024524 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 


TSV7 - HARDWARE TESTS 1-8 
TEST 1: INITIALIZE #4 TEST 


4175 


024526 
024526 


013737 


104406 
112737 


104456 
000150 
025223 


025000 


002172 
010752 


002212 


000200 
000010 
025110 
000000 
016456 


002212 


000000 
016370 
000002 


176377 
002200 
000100 


002212 
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025020 


025120 
025121 


000002 


20$: 


ERRDF 


MOV 


ERRNO, SFIERR, SFIMSG 


ST21PACKET ,R4 


SEQ 0106 


;FATAL ERROR TSSR WAS NOT OK 
TRAP C$ERDF 


«WORD 101 
-WORD SFIERR 
«WORD SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


f REE RE EEE EE EEE EEE EEE EEE EEE SEES EEE EEE EEE EERE SEES EEE EERE EE EE EE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


‘ 
SEEKERS SEES SEES ESSE SESE SEE ESSE SES ESE ESE EES 


23$: 


25$: 


35$: 


UNITN, T210SW 
PC, WRTCHR 


23$ 
FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


$200, T21BS0 
#10, 7218S1 


$T21PK2,R4 
R4, TSDBCRS) 

PC’ CHKTSSR 

303 

0,R1 

FATFLG 

ERRNO, T21SSR,PKTSSR 


#0, iseeens3 
PC, WAITF 
TSSRCRS), Rl 


R2 
STE CHIADDR>, R2 
@SSRINBA, R2 


FATFLG 
ERRNO, T21AM3 ,EXPREC 


s;SET UP DRIVE NUMBER 

STSSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 


;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC hs 
C$ERHRD 
TWORO 102 
-WORD WRTMSG 
«WORD SFIMSG 
TRAP C$CLP1 


wate MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT 


;WRITE SUBSYS | MEM PACKET 
IF NO ERROR 
+ OR ROn SAVE TSSR 
BUMP COUNT 
TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 


-WORD 103 
-WORD T21SSR 
. WORD TSSR 


sSCOPE LOOP 
TRAP C$CLP1 


+ ISSUE A SOFT DEAT 
JUST i BIT TO SET 


s WORK STER 

;CLEAR out OTHER BITS 

;SOME OF THE BITS THAT SHOULD BE SET 
iTS ad Lee i SET 


sBR, IF DRIVE IS OFF LINE 
VEXPECTED (ROD = = RECEIVED B (nas 
; EQUAL (¢ 


;BUMP COUNT 
s"ERROR TRYING TO INIT a ts WRITE MISC. 
RAP C$ERHRD 


104 
T21AM3 


THORO 
- WORD 


D9 


TSV7 - HARDWARE TESTS 1-8 
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4224 


4230 


4225 
26 02 


024724 


015614 


017322 
025121 


016576 
024436 
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37$: CKLOOP 
BR 40$ 
38$: 
ERRDF ERRNO, T210FL,EXPREC 
JSR PC, CKDROP 
40$: CLC 
R T218S1 
25$ 
50$: CKLOOP 
JSR PC, TSTLOOP 
BCC 63$ 
JMP T21L00P 
63$: EXIT TST 


3° 
sLOCAL STORAGE FOR THIS TEST 
= 


.BLK 10-<.-TSV2E7> 
T21PACKET : 

-WORD 100004 

-WORD T21DATA 

-WORD O 

«WORD 10. 
T21DATA: 

-WORD T2i1BFR 

-WORD O 

«WORD 20. 

-WORD O 
T210SW: .WORD O 
T210LY: .WORD 0 
T21BFR: .BLKW 25. 


; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
5 


.BLKB 10-<. -TSV2E7> 
T21PK2: 
-WORD 100206 
-.WORD T21BF2 
-WORD O 
-WORD 6. 
.EVEN 
T21BF 2: 
T218S0: .BYTE 0 
T21BS1: .BYTE 0O 
T21S2: .WORD O 
T2183: .WORD 0 


SEQ 0107 
-WORD EXPREC 
;sLOOP IF SELECTED 
TRAP C$CLP1 
;SKIP OVER OFF-LINE STUFF 
sDRIVE IS OFF LINE 
TRAP C$ERDOF 
“WORD 105 
«WORD T210FL 
«WORD EXPREC 
TRY AND DROP UNIT 
;DON'T LET CARRY SNEAK IN 


sTRY NEXT “LOWEST” BIT POSITION 
;LOOP UNTIL ALL EIGHT BITS TESTED 


sSCOPE LOOP 
TRAP C$CLP1 
;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CS$EXxIT 
-WORD L10036-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sDRIVE SELECT WORD 


sDELAY COUNTER 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


IE AND ACK 


:BSELO AREA --- 
sBSEL1 AREA 
:SEL 2 AREA 
;DATA AREA 


“COMMAND” BYTE 


E9 
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025126 
025223 
025323 
025344 


012701 


012701 
012721 
012721 
005021 
012721 
005SC21 
012701 
005021 
005011 
000207 


104401 


122 


156 


025000 
100004 
025010 
000010 
025024 


000024 


000020 
177777 
000000 


025110 
100206 
025120 
000006 
025120 
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025024 


LOCAL TEXT MESSAGES FOR TEST 


i 
T21SSR: 


T§T2110: 


3° 


-ASCIZ 
OSEtS 
ASCIZ 


VEN 


"WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Acce 
'TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS’ 


‘Re lve is OFFLINE’ 
ASCIZ 


epted’ 


‘Initialization #4' 


wey TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T21REST: 


64$: 


T21RT2: 


3° 


@T21PACKET,R1 
#100004 ° 
@T21DATA, (R1)- 
(R1)- 


08. ,(R1)- 
ae 


#20,R2 

0177777, T21BFR(R2) 
-(R2) 

R2, 80 


64$ 
PC 


$T21PK2,R1 
#100206, (R1)-+ 
#T21BF2,(R1)- 
CR1)- 

06. ,(R1)+ 
CR1)- 
OT21BF2,R1 
(R1)- 

(R1) 

PC 


+ THE REGISTERS 

sSTART OF THE PACKET 

smn Te SUBSYSTEM MEM. WITH ACK, 
;ADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;NUMBER OF LOCATIONS TO BE CLEARED 

;ALL ONES TO MESSAGE BUFFER 
LOCATION 

: CHECK R2 FOR ZERO 

IF NOT AT ZERO YET 

OC TURN 


os. THE REGISTERS 

sSTART OF THE PACKET 

sWRITE auasvoren MEM. WITH ACK, IE 
pat OF DATA BLOCK 


sEXTENDED ADDRESS 
iSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF DATA FOR WRT SUB SYS MEM 


;RETURN 


L10036: 


TRAP CsETST 


-SBTTL TEST 2: OFF-LINE AND REJECT REWIND 


} THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 


SEQ 0108 


F9 
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012737 
004737 


012737 


006360 002170 
016324 
030007 
016630 
000005 002206 


030042 
030134 


016114 
002712 


027070 
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sOPERATION OF THE eT aate POSITIONING COMMAND. IT DOES NOT 
sNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
sARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
;CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
sTYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
sSEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 

; 

; 

ge 


BGNTST 12 

MOV #EPRT1, oe ;SET UP PRIMARY ERROR MESSAGE 
JSR PC ,OSBINT sDISABLE INTERRUPTS 

MOV @TST22TD,R sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSeTuP :00 INITIAL TEST SETUP 

MOV #5, LOOPCNT sPERFORM S ITERATIONS 


3° 

:TEST 2, SUBTEST 1 

; VERIFIES THAT ALL TAPE-MOTION COMMANDS (WITH VALID 
MODE CODES) T REJECT AND 


STATUS NE. 
i THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO 
;EXTENDED MODE, SELECTING UNIT ISSUING EACH 
;TAPE-MOTION COMMAND, CHECKING "MTOR EACH COMMAND, 
;THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED. 
* 


T22LO00P : 
BGNSUB 3 >>>>>>>>>>>> at | ty SUBTEST >>>>>>>>>>>> 
TRAP C$BSUB 
JSR PC, T22REST ;SET COMMAND PACKE 
JSR PC, T22RT2 3SET UP OTHER COPEIAND PACKET 


{FSS ESSERE SEES EE EEEE ESTEE EEEEEE SESE EEEESESES ESSE ERE SEES EERE EES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FESS ESSE SESS SS SS SSS SESS SEES SSS SSESSESSE SSS ESS SEES SESE ESE TESS 


JSR PC,SOFINIT :D0 ah a ON CONTROLLER 

BCS 20$ sBR IF INIT WAS OK 

INC FATFLG 3B 

MOV RO,R1 iCONTENTS OF TSSR REGISTER 

ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP C$EROF 
-WORD 201 
-WORD SFIERR 

208 -WORD SFIMSG 
MOV @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


FFSSSSSSESS SSS SSSS SSS ESSE SEES ESSE SSS SESS SESS SSS SSSR SESE SESE SESEEEEESE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


SEQ 0109 


G9 
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010752 
002212 


027120 
000004 


002212 


002216 
000200 
000010 
027200 
000000 


016456 


002212 


027070 


010752 
002212 
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027211 
027210 


SEQ 0110 


‘ 
FFE SEEKS EEEEEES ESE EES SESS EEE ESE EEE SEEEE 


23%: CKLOOP 


243: CKLOOP 


30$: CKLOOP 
MOV 


PC,WRTCHR 
233 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


Ms ati »R1 


24$ 
FATFLG 
ERRNO, T22WLK , SFIMSG 


EXTFEA 

50$ 

$200, T22BS1 

#10, T22BS0 
OT22PK2 ,R4 


R4, TSDBCRS) 
HKTSSR 


FATFLG 
ERRNO, T22SSR,PKTSSR 


@T22PACKET ,R4 


s; ISSUE WRITE Ay Me it 
;BR, IF COMMAND ISSUED OK 


1B QUNT 
;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC dh 


TRAP C$CLP1 
sPICK UP XTSO 
31S UNIT WRITE-LOCKED? 
sNO,PROCEED WITH TESTING 
;BUMP COUNT 
;TAPE IS WRITE LOCKED 
TRAP CS$ERDF 


«WORD 203 

-WORD T22WLK 
«WORD SFIMSG 
TRAP C$D0CLN 


TRAP C$CLPl 
;CHECK FOR EXTENDED FEATURES SW SWITCH 
;BR_ IF SWITCH IS ON 
mS MISCELLANEOUS CONT/READ STATUS : 
sFUNCTION SEL RECTION “— ON EXTFEA HW SWITCH) 
;WRITE SUBS ae MEM PACKE 


NO ERROR 
+ eR hOn SAVE TSSR 
;BUMP COUNT 
}TSSR NOT CORRECT AFTER WRT MISCELLANEOUS 
C$ERHRD 
"TORO 204 
;WORD  T22SSR 
“WORD PKTSSR 
;LOOP IF SELECTED 
TRAP C$CLP1l 
;SUBROUTINE NEEDS PACKET ADDRESS 


fF EEE SEES SEES ERE EEE EE EEE EES EE SEES ESEEEEEEE SESE EERE TERETE EE 
; 
s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


+ 
FEES SSSSSS SESS SSS SSS ESSE SESS SESE KSEE SESS SEES SESS SESE SESE SESE 


JSR 
BCS 
INC 


MOV 
ERRHRD 


PC,WRTCHR 

50$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


s ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
:BUMP COUNT 


C 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 


H9 
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TEST 2: OFF-LINE AND REJECT REWIND 
025774 104456 TRAP C$ERHRD 
025776 000315 -WORD 205 
026000 005056 .WORD WRTMSG 
026002 012154 .WORD SFIMSG 
4444 026004 50$: CKLOOP ;SCOPE LOOP 
026004 104406 TRAP C$CLP1 
4445 026006 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
4446 026012 032701 000100 BIT #OFL,R1 ;CHECK FOR THE OFFLINE BIT SET 
4447 026016 001006 BNE 60$ ;BR, IF OFFLINE (GOOD) 
4448 026020 005237 002212 INC FATFLG ;BUMP COUNT 
4452 026024 ERRDF ERRNO, T220FL , SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
026024 104455 TRAP CS$ERDF 
026026 000316 -WORD 206 
30 027425 -WORD T220FL 
026032 012154 -WORD SFIMSG 
4453 026034 60$: CKLOOP ;LOOP IF SELECTED 
026034 104406 TRAP C$CLP1 
4454 026036 012703 027216 MOV #T22RD,R3 sPOINTER FOR COMMANDS 
4455 026042 011337 027200 65$: MOV CR3), T22PK2 ; TAPE MOTION COMMAND IN PLACE 
4456 026046 012704 027200 MOV $T22PK2 3R4 = POINTER TO PACKET 
4457 026052 010465 000000 MOV R4, TSHBCRS) sISSUE COMMAND 
4458 026056 004737 016370 JSR PC, *WAITF 2 FOR SSR TO SET 
4459 026062 016501 000002 MOV TSSR(RS), R1 ;GET TSSR CONTENTS 
4460 026066 012702 100306 MOV #SSR!SC!OFL!B1T1!B1T2, R2iSET UP EXPECTED 
4461 026072 020102 CMP R1,R2 ARE THEY EQUAL 
4462 026074 001406 BEQ at iBR, IF OK ESP. FUNCTION REJECT 
4463 026076 005237 002212 INC TFLG ;BUMP COUNT 
4467 026102 ERRHRD ERRAND 122TH. EXPREC ;TSSR INCORRECT AFTER TAPE MOTION CMD 
026102 104456 TRAP C$ERHRD 
026104 000317 -WORD 207 
026106 027500 .WORD T22TM 
026110 015614 -WORD EXPREC 
4468 026112 80$: CKLOOP ;LOOP IF SELECTED 
026112 104406 TRAP C$CLP1 
4469 026114 005723 TST (R3)- ;POINT ~ NEXT COMMAND 
4470 026116 022713 177777 CMP $177777,CR3) _ OF THE COMMANDS YET 
4471 026122 001401 BEQ 90$ 38 IF DONE 
4472 026124 000746 BR 65$ ‘MORE COMMAND(S) TO GO 
4473 026126 90$: 
4474 026126 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
026126 L10040: 
026126 104403 TRAP Cs$ESUB 
4475 026130 023727 002212 000017 CMP FATFLG,#@15. 31S ERROR COUNT AT 25 
4476 026136 103402 BLO 999$ ;BR, IF LESS THAN 25 
4477 026140 004737 017322 JSR PC ,CKDROP s TRY TO DROP THE UNIT 
4478 026144 999$: 
4479 
4480 3° 
4481 F 
re | sTEST 2, SUBTEST 2 
F 
4484 ;VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME 
4485 sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK 
4486 3(VCK) FLAG IS SET. 
4487 3 
4488 3 


4489 §- 


19 
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030042 
030134 


016114 
002212 


027070 


010752 
002212 


027211 
027210 


26 
4540 026310 
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BGNSUB y>>>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 
rae CsBSUB 
JSR PC, T22REST ;SET COMMAND PACKET 
JSR PC, T22RT2 ;SET UP OTHER COMMAND PACKET 
eititi tit itt itiititt ti tittttti ttt t tit it iti titi titi t titi tit iti titi it) 
: 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
) SeseesocorosorsescossesosoonoesosesocooooesoosnesoeseseneseneeeTes 
JSR PC, SOFINIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 208 
.»WORD SFIERR 
208 .WORD SFIMSG 
"MOV OT22PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


FERRET EEE EE ESTEE EEE SESE SESE ESSE SES ES ESSE EERSTE RES ESSE EE EES 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


i 
FESS SSS SSESSES SSS ESSE SSS SESS SES SESE ESSE SSS SSS SSESE ESE ESSERE SESE 


23%: 


SE@ O1l2 


SWITCH) 


JSR PC,WRTCHR ;ISSUE WRITE CHARACTERISTICS 

BCS 233 :8R. IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC FAILED 

CSERHRD 

TTORD 209 
"WORD WRTMSG 
"WORD  SFIMSG 

TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 

BNE 50$ ;8R IF SWITCH IS ON 

MOVB 200,722851 ;WRITE MISCELLANEOUS CONT/READ STATUS 

MOVB 10, 122850 ;FUNCTION SELECTION BIT (TURN ON EXTFEA HW 

MOV OT22PK2,R4 ;WRITE SURSYS MEM PACKET 

MOV R4, TSDBCRS) ; ISSUE COMMAND 

JSR PC’ CHKTSSR ;WAIT FOR SSR 

BCS 30% :BR, IF NO ERROR 

MOV RO,R1 ;ERROR, SAVE TSSR 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T22SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT T, MISCELLANEOUS 
"WORD 210 
"WORD T22SSR 
WORD PKTSSR 

CKLOOP ;LOOP IF SELECTED 
TRAP  C$CLP1 


JI 
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TEST 2: OFF-LINE AND REYECT REWIND 
roa! 026312 012704 027070 MOV #T22PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
ro FESS SESE ESSE ESSE EEE EEE SEE ESE EERE ESSE SESE ESSE SEE EEE ESE EEE ES 
: 
4345 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
H 

rs a4 FFFSSSSS SS SESS ESSE SESE SSS SESS SEES EES SEES SESE SE SESE SESE SESE SESE SSES 

4549 026316 004737 010752 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

4550 026322 103407 BCS 503 ;8R, IF COMMAND ISSUED OK 

4551 026324 005237 002212 INC FATFLG ;BUMP 

4555 026330 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4556 026332 ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC FAILED 
026332 104456 CSERHRD 
026334 000323 THORD 211 
026336 005056 "WORD WRTMSG 
026340 012154 :WORD  SFIMSG 

4557 026342 50$: CKLOOP ;SCOPE LOOP 
026342 104406 TRAP © C$CLP1 

4558 026344 016501 000002 MOV TSSRCRS).R1 ;GET TSSR CONTENTS 

4559 026350 032701 000100 BIT #OFL ,R1 ;CHECK FOR THE OFFLINE BIT SET 

4560 026354 001006 BNE 60$ ;BR, IF OFFLINE (GOOD) 

4561 026356 005237 002212 INC FATFLG ;BUMP COUNT 

4565 026362 ERRDF ERRNO, T220FL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
026362 104455 TRAP C$ERDF 
026364 000324 .WORD 212 
026366 027425 "WORD  T220FL 
026370 012154 "WORD SFIMSG 

4566 026372 60$: CKLOOP ;LOOP IF SELECTED 
026372 104406 TRAP  —- C$CLP1 

4567 026374 012737 102210 027200 653: MOV #102210, T22PK2 ;POSITION COMMAND CREWIND MODE ) 

4568 026402 012704 027200 MOV OT22PK2_-R4 ;R4 = POINTER TO PACKET 

4569 026406 010465 000000 MOV R4, TSDBCRS) ;1SSUE COMMAND 

4570 026412 004737 016370 JSR PC: WAITF ;WAIT FOR SSR TO SET 

4571 026416 016501 000002 MOV TSSR(R5S),R ;GET TSSR CONTENTS 

4572 026422 012702 100306 MOV PSeR iS! OFL !BIT1 18172, R2iSeT UP EXPECTED 

4573 026426 020102 CMP R1,R2 ARE THEY EQUAL 

4574 026430 001406 BEQ B04 BR, IF OK ESP. FUNCTION REJECT 

4575 026432 005237 002212 INC TFLG ;BUMP COUNT 

4579 026436 ERRHRD ERRNO T22RWJ,EXPREC ;TSSR INCORRECT AFTER TAPE MOTION CMD 
026436 1044 TRAP _ C$ERHRD 
026440 000325 .WORD 213 
026442 027574 "WORD T22RWU 
026444 015614 “WORD  EXPREC 

4580 026446 80$: CKLOOP ;LOOP IF SELECTED 
026446 104406 TRAP = C$CLP1 

4581 026450 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
026450 L10041: 
026450 104403 TRAP CSESUB 

4582 026452 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 

4583 026460 103402 BLO 999$ :BR, IF LESS THAN 25 

4584 026462 004737 017322 JSR PC, CKDROP sTRY TO DROP THE UNIT 

4585 026466 9993: 

4586 

4587 3° 

4588 


a 
4589 sTEST 2, SUBTEST 3 


K9 
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TEST 2: OFF-LINE AND REJECT REWIND 


030042 
030134 


016114 
002212 


027070 


010752 
002212 


002216 


000200 
000010 
027200 
000000 


016456 


002212 


SEQ 0114 


iVERTETES THAT A REWIND COMMAND WITH CVC=1 a vCK 
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER 


s- 


BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TRAP C$BSUB 
JSR PC, T22REST ;SET COMMAND PACKET 
JSR PC, T22RT2 ;SET UP OTHER COMMAND PACKET 
FFE SSSS SSE SSS SSS SSS SE SSES SESS ESSE SESE SSE ESSE SESE SES ESSERE EEE EEE SEES 
: 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| SeoenecooocooseseoooeesoooesescesessosecsoooosooooosseeeroooseseeS 
JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ ;6R IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
214 
WORD SFIERR 
208 WORD SFIMSG 
. MOV OT22PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


{ESSE EEE TEESE EEEE ESSE SESE S SEE SSESESS ESET ERE ESSE ES ESE SEES 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
FSSSSSSSSSS SSS SSS SS SSS SSS SSS SSS SESS SESS SSSSS SS SESS SSES ESSE ESSERE SE SSS 


JSR PC,WRTCHR 
BCS 233 
INC FATFLG 
MOV RO,RI 
ERRHRD ERRNO,WRTMSG, SFIMSG 
235: TST EXTFEA 
BNE 50$ 
027211 MOVB  200,7228S1 
027210 MOVB #10 Te28so 
MOV T23PK2 ,R 
MOV He oreDBCRS) 
JSR PC; CHKTSSR 
BCS 30$ 
MOV RO,R1 
INC FATFLG 
ERRHRD ERRAND” T22SSR,PKTSSR 


s ISSUE WRITE CHARACTERISTICS 
F COMMAND ISSUED OK 


oun 
OUNT 
; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC raps 
CSERHRD 
"WORD 215 


-WORD WRTMSG 


-WORD  SFIMSG 
;CHECK FOR EXTENDED FEATURES SW SWITCH 
;BR IF SWITCH IS ON 


de | MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SEL ECT ION BIT (TURN ON EXTFEA HW 
iWRITE SUBSYS MEM PACKET 

s ISSUE COMMAND 

iWAIT FOR SSR 

sBR, IF NO ERROR 

sERROR, SAVE TSSR 


;BUMP COUNT 
iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 


SWITCH) 


s 
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4687 026772 
46 


4689 027002 
4690 027004 
4691 027010 


027070 


010752 
002212 


000002 
000100 


002212 


142010 
027200 
000000 
016370 
000002 
100306 


002212 


027112 
000006 


000020 
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30$: 


CKLOOP 
MOV 


ST22PACKET ,R4 


TRAP CSERHRD 

-WORD 216 

«WORD T22SSR 
WORD PKTSSR 


sLOOP IF SELECTED 


TRAP C$CLP1 
sSUBROUTINE NEEDS PACKET ADDRESS 


{FEET EEE ESSE SESE EEE EES ESSE EEE EEEESSEESEEEESESE SESE EERE EEE EEE SES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
§ ESSERE SESS SSS SESS SSS SSS ESSE SESE ESSE SESS ESSE EEE SESE SESE EEE ESTES 


50$: 


60$: 
027200 65%: 


80$: 


PC ,WRTCHR 
50$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


TSSRCRS),R1 
@OFL ,R1 


60$ 
FATFLG 
ERRNO, T220FL , SFIMSG 


#142010, T22PK2 
eT2 

R4, TSDBCRS) 
PC. WAITF 

TSSR 


FATFLG 
ERRNO, T22RWJ,EXPREC 


OT22BFR,R3 
XSTOC R3),R1 


SaiTs.Re 
R1,R2 


s ISSUE WRITE CHARACTERISTICS 
+e A acca ISSUED OK 


iSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC ron 


RAP C$ERHRD 
«WORD 217 
«WORD WRTMSG 

WORD SFIMSG 


sSCOPE LOOP 


TRAP C$CLP1 
;GET TSSR CONTENTS 
sCHECK FOR THE OFFLINE BIT SET 
+ 7 tas (GOOD) 


; 

;OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CS$EROF 
-WORD 218 
«WORD T220FL 
WORD SFIMSG 

sLOOP IF SELECTED 
TRAP C$CLP1 


sPOSITION COMMAND CREWIND MODE) CVC=1 
3sR4 = POINTER TO PACKET 


s ISSUE COMMAND 
iWAIT FOR SSR_TO SET 
CONTENT 


CRS),R sGET TSSR CONTENTS 
Pee OFLISC!BIT1 18172, R2iSET UP EXPECTED 
R1,R2 sARE THEY 


EQUAL 
BR IF OK ESP. FUNCTION REJECT 


iTSSR INCORRECT AFTER TAPE WOT sens CMD 
TRAP 315 
-WORD  T22RWJ 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sPOINTER TO MESSAGE BUFFER 
sPICK UP ere Coen MESSAGE BUFFER 


EXPECTED 
sVCK SHOULD BE CLEAR 
sARE THEY EQUAL 


SEQ 0115 


M9 


TSV7 - HARDWARE TESTS 1-8 


TEST 2: OFF-LINE AND REJECT REWIND 


027012 
027014 
20 


100204 
027100 
000000 
000012 
027112 
000000 
000024 
000000 
000007 


100206 
027210 
000000 


000006 
000 
000 

000000 

000000 


002212 


002212 000017 
017322 
016576 
025552 


BEQ 

INC FATFLG 

ERRHRD ERRNO, T22VCK ,EXPREC 
90$: 

ENDSUB 

CMP FATFLG, #15. 

BLO 999$ 

JSR PC ,CKDROP 
999%: 

JSR PC, TSTLOOP 

BCC 163$ 

JMP T22L00P 
163%: EXIT TST 


}LOCAL STORAGE FOR THIS TEST 
3° 


. BLK 10-<.-TSV2E7> 
T22PACKET : 

-WORD 100204 

«WORD T22DATA 

-WORD O 

«WORD 10. 
T22DATA: 

-WORD T22BFR 

-WORD O 

-WORD 20. 

-WORD O 

-WORD 7 
T22BFR: .BLKW 25. 


3 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 


-BLKB 10-<.-TSV2E7> 
T22PK2: 
.- WORD 100206 
-WORD T22BF2 
-WORD O 
-WORD 6. 
-EVEN 
T22BF 2: 
22eBS0: .BYTE 0O 
T22BS1: .BYTE 0O 
T22S2: .WORD O 
T22S3: .WORD 0O 
3 
3 
- EVEN 
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BR, IF OK (GOOD) 

sBUMP COUNT 

;VCK WASN'T CLEAR (BAD) 
TRAP C$ERHRD 
WORD 220 


«WORD T22VCK 
. WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10042: 
TRAP CSESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO OP THE UNIT 
;D0 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP C$EXxIT 
-WORD L10037-. 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH IE, 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 7 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


SEQ 0116 


ACK 


N9 


TSV7 - HARDWARE TESTS 1-8 
TEST 2: OFF-LINE AND REJECT REWIND 


027216 
027220 


100201 
100205 
100210 
100211 
177777 


012701 


027070 
100204 
027190 
000012 
027112 
000024 
000007 
000020 
177777 
000000 
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027112 


hin 3 MOTION PACKET COMMAND VALUES 
2 WORD 1 1 


2RD: . 0020 
T22WRT: .WORD 100205 
T22P0S: .WORD 100210 
T22FOR: .WORD 100211 

. WORD 177777 


;LOCAL TEXT MESSAGES FOR TEST 
od 


SEQ 0117 


sREAD TAPE FORWARD 
sWRITE Mg | FORWARD 
sPOSITION TAPE 
sFORMAT ph 

OF DATA 


T22SSR: .ASCIZ "WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
T22AM3: .ASCIZ ‘TSSR Init. Failed orter WRITE MISCELLANEOUS COM TOL READ STATUS’ 
T220FL: :ASCIZ ‘Drive 7 Select Failed To oat toe In T 

T22TM: ASCIZ ‘TSSR Incorrect After Yepe he Command To Off-Line Device’ 
22RWJ: SCIZ ‘TSSR A xerrers peter EWIND With VCK Set’ < 
T2evcK: .ASCIZ ‘CVC Se idn''t Reset VCK In Buffer 

T22WLK: .ASCIZ eseeTABE Is WRITE - COcKED AND Witt AUSE ERRORS ee ees" 

TST22ID: even ASCIZ ‘Off-Line And Reject Rewind’ 


. 


;ROUTINE TO RESTORE COMMAND - Be al TO START-UP (DEFAULT) VALUES 


;WRITE SUBSYSTEM MEMORY COMM 
; 
Re 


T22QREST: 
SAVREG 
MOV @T22PACKET R1 
MOV #100204, (Ri)- 
MOV eT220ATA .(R1)- 
CLR 
MOV $10 R1i)- 
MAV OT22BFR,(R1)- 
CLR (R1)« 
MOV $20. ,(R1)+ 
CLR (Ri) 
MOV ¢7 éri) 
MOV R2 

64$: MOV 9177777, T22BFR(R2) 
TST -(R2) 
CMP R2,00 
BNE 643 
RTS PC 

T22RT2: 
SAVREG 
MOV @T22PK2, Ad 
MOV #100206 , (R1)+ 
MOV ere2ere, ;CR1)« 
CLR Ri)- 
MOV 06. ,(R1)- 
CLR (Rid. 
MOV $T22BF2,R1 


+} THE REGISTERS 

sSTART OF THE PACKET 

qr 53 SUBSYSTEM MEM. WITH ACK, IE 
ao SS_OF eeeaseracs DATA BLOCK 
’ 


sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE SEVEN 

sNUMBER OF LOCATIONS TO BE CLEARED 
PALL ONES TO MESSAGE BUFFER 

sBUMP R2 DOWN 

31S R2 AT ZERO YET 

sKEEP GOING UNTIL DONE 

sRETURN 


sSAVE_THE REGISTERS 

sSTART OF THE PACKET 

EO aRE puesveren MEM. WITH ACK, IE 
SS OF DATA BLOCK 


1EX ENDED SS 
sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


Bio 


TSV7 - HARDWARE TESTS 1-8 


TEST 2: OFF-LINE AND REJECT REWIND 


030170 


030202 


012737 006360 002170 
126 


00503 3130 
012737 000005 002206 


104402 
004737 035042 
004737 035134 
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CLR (R1)- 

CLR C(R1) 

CLR (R1) ;LAST LOC TO BE CLEARED 
RTS PC ;RETURN 

ENDTST 


L10037: 
TRAP CSETST 


-SBTTL TEST 3: BASIC WRITE DATA 
3* 


3 

;THIS TEST VERIFIES THAT 1 te WRITE DATA_CNEXT) COMMAND OPERATES 
sPROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
sWRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
SLIMITED TO VERIFYING THAT THE COMMAND TERMINATED = WITH 
sTHE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 


; 
;THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 
; 


BGNTST si 
MOV #EPRT1,EPRTSW :;SET UP PRIMARY ao MESSAGE 
CLR KTENABLE s TURN OFF KT11 

JSR PC ,.KTOFF TURN OFF KT11 

JSR PC; DSBINT ;DISABLE INTERRUPTS 

MOV $TST231D,RO ;ASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

JSR PC MEMCK + CHECK FOR MEMORY 

CLR MFLG ;SET FLAG 

MOV 95 LOOPCNT + SERFORM 5 ITERATIONS 


3° 
3 
sTEST 3, SUBTEST 1 


3 

sVERIFIES THAT A WRITE COMMAND CANY VALID MODE CODE) 
sWITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
a, CODES ARE CHECKED (WRITE DATA, WRITE 


sRETRY). 
.- 
T23LO00P : 
BGNSUB 3 >>>>>>>>>>>> ten SUBTEST >>>>>>>>>>>> 
"TRAP C$BSUB 
JSR PC, T23REST :SET COMMAND PACKE 
JSR PC,T23RT2 ;SET UP OTHER COPEIAND PACKET 


f EERE EERE TEESE EEE SEES TEESE EEEE EERE EEE EE EEEE SEES EE EEEEE RESET EE EEE 
; 
sISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 


i 
FEES SESS SE ESSE ESE ESS SEES SEES ESSE SEE SESE EEE EEE SESE EEE 


SEQ 0118 
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SEQ 0119 
TEST 3: BASIC WRITE DATA 
4861 030264 004737 016114 JSR PC,SOFINIT ;D0 INITIALIZE ON CONTROLLER 
4862 030270 103407 BCS 20$ ;8R IF INIT WAS OK 
4863 030272 005237 002212 INC FATFLG ;BUMP COUNT 
4867 030276 010001 MOV RO,R1 s;CONTENTS OF TSSR REGISTER 
4868 030300 ERRDF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
030300 104455 TRAP CSERDF 
030302 000455 . WORD 
030304 003652 “WORD SFIERR 
030306 012154 . WORD MSG 
4869 030310 208: 
4870 030310 012737 000007 033540 MOV #7, T23DSW ;SET DRIVE NUMBER IN PACKET 
ag71 030316 012704 033520 MOV OT23PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
anra ? FEES ES EEK EES EEE SEES EEE EEE EEE EEE EE EEE SEES EEE EEET ES 
H 
sore ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
p> FEES SESS EEEEEEEEESE EES EEE KEES ESE SEEEEEESESEESESEESEE 
4879 030322 004737 010752 JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
4880 030326 103407 BCS 23$ ;BR, IF COMMAND ISSUED OK 
4881 030330 005237 002212 INC FATFLG ;BUMP COUNT 
4885 030334 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4886 030336 ERRHRD ERRNO,WRTMSG,SFIMSG iWRITE CHARACTERISTISC FAILED 
° 030336 104456 C$ERHRD 
030340 000456 "TORO 302 
030342 005056 “WORD WRTMSG 
030344 012154 WORD SFIMSG 
4887 030346 005737 002216 235: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
488s 070352 001044 BNE 50$ ;6R IF SWITCH IS ON 
4890 030354 112737 000200 033663 MOVB $200,723651 ;WRITE MISCELLANEOUS CONT/READ STATUS 
4891 030362 112737 000010 033662 MOVB #10, 123BS0 sFUNCTION SEL ECTION BIT (TURN ON EXTFEA HW SWITCH) 
4892 030370 012704 033630 MOV OT23PK2,R4 WRITE SUBSYS MEM PACKE 
4893 030374 010465 MOV R4,TSDBCRS) ;ISSUE COMMAND 
4894 030400 004737 016456 PC, CHKTSSR WATT FOR SSR 
4895 030404 103407 BCS 30$ IF NO ERROR 
4896 030406 010001 MOV RO,R1 eRROR SAVE TSSR 
4897 030410 005237 002212 INC FATFLG BUMP COUNT 
4901 030414 ERRHRD ERRNO, T23SSR,PKTSSR }TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
030414 104456 TRAP CSERHRD 
030416 000457 . WORD 
030420 033704 .WORD T23SSR 
030422 012166 -WORD PKTSSR 
4902 030424 30$: CKLOOP ;LOOP IF SELECTED 
030424 104406 TRAP C$CLP1 
4903 030426 012737 000007 033540 MOV #7, T230SW ;SET DRIVE NUMBER IN PACKET 
4904 030434 012704 033520 MOV OT23PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
4906 FESS SESE SSE SESS SSS SEES EES SESS SESE SESS EEESSE SEES SESE EEE SEE SESE 
4907 ; 
4908 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
Z 
4910 FESS SSSSSS SSS SSS SESS SSS SSS S SSS SESE SAS REESE SSE SESE SES SES ESSE SESE SESE SESS 
4911 
4912 030440 004737 010752 JSR PC ,,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
4913 030444 103407 BCS 50$ ;8R, IF COMMAND ISSUED OK 


TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: 


4914 
4918 


4919 
te) 


BASIC 


005237 
010001 


002212 


000002 
000100 


002212 


177777 


002212 
017322 
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SEQ 0120 
INC FATFLG ;BUMP COUNT 
Vv RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP § C$ERHRD 
.WORD 304 
"WORD WRTMSG 
"wORD SFIMSG 
50$: CKLOOP :SCOPE LOOP 
TRAP C$CLP1 
MOV TSSRC(RS),R1I ;GET TSSR CONTENTS 
BIT #OFL ,R1 ;CHECK FOR THE OFFLINE BIT SET 
BNE 60$ ;BR, IF OFFLINE (GOOD) 
NC FATFLG ;BUMP COUNT 
ERRDF ERRNO, T230FL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP C$ERDF 
.WORD 305 
"WORD T230FL 
‘WORD SFIMSG 
60$: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLP1 
MOV #T23WD,R ;POINTER FOR COMMANDS 
65$: MOV (R3), T23PK2 ;TAPE MOTION COMMAND IN PLACE 
MOV OT23PK2,R4 ;R4 = POINTER TO PACKET 
MOV R4, TSDBCRS) ;ISSUE COMMAND 
JSR MATTE sWAIT FOR SSR TO SET 
MOV TSSR(RS) ;GET TSSR CONTENTS 
MOV pee sec LOFe !BIT2!BIT2, R2;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ BR, IF OK ESP. FUNCTION REVECT 
INC FATFLG 38 OUNT 
ERRHRD ERRNO, T23TM, EXPREC ;TSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP — C$ERHRD 
.WORD 306 
"WORD T23T 
"WORD  EXPREC 
80$: CKLOOP ;LOOP IF SELECTED 
TRAP —s- C$CLP1 
TST (R3)- ;POINT TO NEXT COMMAND 
CMP 4177777, (R3) ;END OF THE COMMANDS YET 
BEQ 90$ ;BR, IF DONE 
al BR 65$ iMORE COMMAND(S) TO GO 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10044; 
TRAP C$SESUB 
000017 CMP FATFLG, #15. :I1S ERROR COUNT AT 2 
BLO ;0R, IF LESS THAN 25 
=a JSR PC, CKDROP ;TRY TO DROP THE UNIT 


| 
iTEST 3, SUBTEST 2 


iVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE 
;SWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE 
;BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K 


E10 
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104402 
023727 
001002 
000137 
013701 


003652 
012154 


013737 
012704 


002220 
031472 
003120 


016114 


002212 


002172 
033520 


010752 
002212 
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000002 


033540 


x VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT 
+ THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
sMODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
sRECORDS BUT IS ae Leora My AFTER THE FINAL RECORD IS 


;TSSR_AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE 
;RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 
;USING THE WRITE SUBSYSTEM MEMORY COMMAND. 

; 

é 

; 

ad 


BGNSUB p> >>>>>>>>>>> a * Senate 
RAP C$BSUB 
CMP REV, #2 ; IS IT A NEW MICROCODE REV 2 
BNE 10$ 3 
108 JMP 130$ ; YES, DO NOT RUN THIS TEST 
MOV FRESIZ,R1 ;GET SIZE OF AVATL POLE MEMORY 
CLC ;CLEAR THE CARRY BIT 
ROL R1 ;MAKE INTO BYTES 
MOV R1, T23RSZ :STORE IN TEST o. USE LATER 
JSR PC, T23REST 3SET COMMAND PACKE 
JSR PC, T23RT3 sRESTORE PACKET 


JSR PC, T23RT2 ;SET UP OTHER COMMAND PACKET 
FREESE EEE EEE EEEEE EEE EEEEEEE EES EEEEEEESE SEE EE EERE REESE EEE SEE ES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FEES ESSE ESSE SESS SSSR SSS S SESS ESSER SESE SESE SSE EEEES EEE ES 


JSR PC,SOFINIT :00 INITIALIZE | ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
INC FATFLG ;BUMP SUNT 
MOV RO,R1 ‘CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


20$: 
MOV UNITN, T230SW ;LOAD UP SELECTED UNIT NUMBER 
MOV OTOSPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
FFSSSSSESSSS SESS SSS SESS SSS SSS SSS SESE SESS SSSS SSS SSS SS SES ESSE ESSE ESET ESE 
}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
FSSSSSSSSSSSS ESSE SS SSS SSS SSS S SSS SSS SSS S SESS SSS SSSESSESSES SESE SSE SESE ESS 


JSR PC,,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 23$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG BUMP 


3 COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 


SEQ 0121 


F10 
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WRITE DATA 


TEST 3: 


BASIC 


29 030756 


030762 
030766 


104456 


000464 
005056 
012154 


104406 


004737 
012703 
013737 


012737 


140005 


140005 


004000 
033650 
017542 
033656 
000000 
016370 
000002 
000200 


035222 


007376 
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033652 


ERRHRD ERRNO,WRTMSG, SF IMSG 


23$: CKLOOP 


sWRITE CHARACTERISTISC FAILED 
TRAP C$ERHRD 
-WORD 308 
«WORD WRTMSG 
WORD SFIMSG 


;LOOP IF SELECTED 
TRAP C$CLP1 


{EERE TEESE EEE EEE TERETE TEESE EERE SES ERE REESE ESSE EES SESE EEE EES 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
FERS EEEEEEEE EEE 


JSR PC ,REWIND 
MOV #20. ,R3 
65$: MOV FREE, T23WB 


;CALL_THE TAPE REWIND 
sSTARTING RECORD SIZE 
s;STARTING WRITE BUFFER ADDRESS 


FFE SEEKS EEE EEE EEE EKER EEEEEEEEE EES 


;}WRITE DATA,CVC=1,ACK COMMAND 


3 
FFF EEE SESE ESE EEE SES ESSE SEES SESE ES EEE SESE SESE EEE EE SES EEE EEEE 


MOV #140005 , T23PK3 


MOV #140005, T23WRT 
BIS $4000, T23WRT 
MOV B123PKS, R4 
MOV 3,RO 
JSR PCCP SLLMEM 
MOV R3,T23SZ 
MOV R4,TSDBCRS) 
JSR PC. WAITF 
MOV TSSR(RS),R1 
MOV #SSR,R2 
CMP R1,R2 
BEQ 80$ 
JSR PC, T23CHK 

80$: CKLOOP 
MOV TSBACRS),R1 
MOV OT23BFR,R2 
ADD $16 ,R2 
TST EXTFEA 
BEQ 85$ 
ADD #2,R2 

85$: CMP R1,R2 
BEQ $ 


INC FATFLG 
ERRHRD ERRNO, T23BA,EXPREC 


CMP R3, #7376 


;WRITE DATA,CVC=1 
;SETUP FOR RETRY C 
;MAKE IT A RETRY 
:SET UP R4 WITH PACKET ADDRESS 
{SET PATTERN IN CORRECT REGISTER 
;FILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
;ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
SET UP EXPECTED 
: ARE THEY EQUAL 
IF OK 
ene CK SPECIAL CONDITION 
;LOOP IF SELECTED 
TRAP = C$CLP1 


3GET TSBA CONTENTS 


ACK COMMAND 
OMMAND 


TO OF MESSAGE BUFFER 
sCHECK FOR EXTENDED FEATURES SW SET 
BR, IF IT NOT SET 

;BUMP_R2 FOR EXTRA DATA 

SARE THEY EQUAL 

BR, IF TSBA IS CORRECT 

;BUMP COUNT 


iTSBA WAS NOT CORRECT ad A WRITE DATA 
C$ERHRD 
TWORO 
-WORD T23BA 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP C$CLP1 


sONLY CHECK RAM UNTIL ITS FULL 


SEQ Ol22 


G10 
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031142 


03 
020337 


035134 
000400 
000000 
033630 
000000 
016456 


002212 


033562 


002212 


033664 
033664 
000400 
033664 
001750 
033660 
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033664 
033662 
033663 


033664 
033662 
033663 


92$: 


95$: 


100$: 


110$: 


115$: 


115$ 

PC, T23RT2 
$256. ,123S2 
00, T23BS0 
#0, 133681 
$T23PK2,R4 
R4, TSDBCRS) 
PC; CHKTSSR 
92% 
RO,R1 
FATFLG 
ERRNO, T23WSS,PKTSSR 


ot Ss2 
T23BS0 


C,T 
ease 
PC CHKTSSR 

aoe Ra 

FATFLG 

ERRNO, T23WSS,PKTSSR 


z 
T23BFR+20,R1 
R3,R2 

R1,R2 

110 


FATFLG 
ERRNO, T23RNC ,EXPREC 


91000. 
R3, qo sasz 
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;IT WRAPS AROUND ETC. 

s;MAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM ADDRES 

sSTOP INTERNAL TSVOS DIAGNOSTICS 
sSIZE OF RAM READ 

;SET R&4 WITH PACKET ADDRESS 

sISSUVE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR AND WAIT FOR SSR TO SET 
;BR, IF NO ERRORS IN TSSR 

SAVE TSSR 


UMP COUNT 
iTSSR BAD AFTER WRITE ~ Rig MEM 


C$ERHRD 
THORO 310 
«WORD T23WSS 
«WORD PKTSSR 


sLOOP IF SELECTED 
C$CLP1 


TRAP 
;MAKE SURE PACKET AND DATA ARE CLEAN 
;STARTING RAM ADDRESS 

D RAM COMMAND FOR WRITE SUB SYS M. 

sSIZE OF RAM READ 
iSET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM COMMAND 
;CHECK TSSR AND WAIT FOR SSR TO SET 


;BR, 4 NO ERRORS IN TSSR 
;SAVE T 
sBUMP COUNT 
;TSSR BAD AFTER WRITE oR ai? MEM 
C$ERHRD 
THORD 311 
.WORD T23WSS 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP C$CLP1 
;CLEAR REGISTER 
;CLEAR REGISTER 
;PICK UP BYTE READ FROM RAM 
;SET UP EXPECTED 
31S RAM DATA CORRECT 
see IF Aaa 
3 
sRNC=RAM NOT CORRECT 
TRAP C$ERHRD 
-WORD 312 
-WORDB T2 
-WORD EXPREC 
;LOOP IF SELECTED 
Pp CS$CLP1 


A 
sBUMP RAM ADDRESS TO BE CHECKED 
sBUMP RAM ADDRESS TO BE CHECKED 
sGET SIZE OF RECORD 
FIGURE OUT END RE 


IF MORE TO CHECK 
;NEXT RECORD SIZE/DATA PATTERN 
sIS R3 OVER MAX RECORD SIZE 


SEQ 0123 


H10 
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WRITE DATA 


TEST 3: 


BASIC 


031 
031510 


031510 


031536 


004737 


177776 
030766 
035176 

34 


002212 
017322 


002220 
032326 


035042 
035134 


016114 
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033630 


000017 


000002 


120$: 


130$: 


999$: 


120$ 
R3, #65534. 
120$ 
65$ 
PC, T23RT3 


PC, T23RT2 
#102010, T23PK2 
23PK2 ,R4 


FATFLG 
ERRNO, T23RWN,PKTSSR 


FATFLG, #15. 
999$ 
PC, CKDROP 


;TEST 3, SUBTEST 3 


; 

sVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE 
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
;SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

;THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 


10$: 


REV, #2 
10% 
130% 


PC, T23REST 
PC, T23RT2 


sIF RECORD SIZE IS TOO BIG QUIT 
;END OF SUBTEST MAX RECORD SIZE 
;BR, IF COMPLETED 
:D0 MORE RECORDS 


sRESTORE PACKET 

;CLEAN UP PACKET 

sREWIND CPOSITION) COMMAND 
sLOAD R4 WITH PACKET ADDRESS 
s ISSUE REWIND or -” 

3;WAIT co SSR_TO0 S 

TSSR IS Of (G000) 

i SAVE pt CONTENT 


UMP C 
;TSSR Is INCORRECT AFTER “ee 
cigneo 


“WORD T23RWN 
"WORD PKTSSR 


}>>>>>>>>>>>> END serest >>>>>>>>>>>> 
Li 5: 


TRAP CSESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


3>>>>>>>>>>>> 69a >>>>>>>>>>>> 


RAP C$BSUB 
; IS IT A NEW MICROCODE REV 2 

; NO BR 

; YES, DO NOT RUN THIS TEST 


3SET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


f POSSESSES SEES ESSE SEESESESSESESE SESE SESESS SERS S SEES ESET EEEEES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
{PSSST SSS SSS SSS SSS SSS SSS S SS SSS SSS SS SSS SSS SSS SS SSS SSS SSS SESE SE ESSE SEES 


JSR 


PC,SOFINIT 


s00 INITIALIZE ON CONTROLLER 


SEQ 0124 





TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: BASIC 
031542 
1544 


031570 


031574 
031600 
031602 
031606 
031610 
031610 
031612 
031614 
031616 
031620 


031620 
031624 


031632 
31640 





013737 
012704 


012703 
013737 


012737 


002212 


002172 
033520 


010752 
002212 
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033652 


BCS 20$ 
INC FATFLG 


MOV RO,R1 
ERRDF ERRNO,SFIERR,SFIMSG 


20$: 
MOV 
MOV 


UNITN, T230SW 
@T23PACKET ,R4 


;BR IF INIT WAS C0” 
s;BUMP COUNT 


i CONTENTS OF TSSR REGISTER 
s;FATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
- WORD 
. WORD 
;SET UP_UNIT NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 


{EEE EEE EEE REE ESET EE EEE SEES ES EEE SESE EEE EEE SESE SESS EEE ESSE EEE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FESS SSS SEE EEE SEES EEE SESE EEE ES ESET E EEE 


JSR PC,WRTCHR 
BCS 233 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG 


23$: 
65$: 


MOV 


#20. ,R3 
MOV FREE, T23WB 


ee ® WRITE Aesray MY. ar aay 

;BR, IF COMMAND ISSUED OK 

;BUMP COUNT 

i SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC ae 
THORO 


WORD 
. WORD 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FESS SESS SESE SESS ESSE SESE SESE EES ESSE SEES EEE SESE SEES EERE SEE 


;WRITE DATA,CVC=1,ACK,SWB COMMAND 


; 
FESS ESET SESS SESS SSS SESS SSSR SSS ESSE SSE SSS ESSE SESE SESE SESE EEEE 


#150005 , T23PK3 


80% 
PC, T23CHK 


TSBACRS),R1 
OT23BFR,R2 
#16,R2 
EXTFEA 


*WRITE DATA CVC=1,ACK,SWB COMMAND 
3 SETUP FOR RETRY COMMAND 

;MAKE IT A RETRY 

‘SET UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
;FILL MEMORY WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 


IF OK 
;CHECK SPECIAL CONDITION 
sLOOP IF SELECTED a 


;GET TSBA CONTENTS 
UP EXPECTED 
sSET TO END OF MESSAGE BUFFE 
sCHECK FOR EXTENDED FEATURES. SW SET 


C$CLP1l 


SEQ 0125 





J10 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


000002 


002212 


033562 


002212 


MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 77-21 


85$: 


92%: 


95$: 


100$: 


BEQ 
ADD 


FATFLG 
ERRNO, T23BA,EXPREC 


R3, 07376 
115% 

be T23RT2 
$256. ,123S2 

, 123850 


RO,R1 


TFLG 
ERRNO, T23WSS,PKTSSR 


R1 
R2 
T23BFR-20,R1 
R3,R2 
Ri Re 

0$ 


11 
FATFLG 
ERRNO, T23RNC ,EXPREC 


;BR, IF IT NOT SET 
; BUMP R2 FOR EXTRA DATA 


;ARE THEY EQUAL 
;BR, IF TSBA IS CORRECT 
;BUMP COUNT 
;TSBA WAS NOT CORRECT al A WRITE DATA 
CS$ERHRD 
"TORO 316 
.WORD T23BA 
.WORD EXPREC 
;LOOP IF SELECTED 
C$CLP1 


TRAP 
sONLY CHECK RAM UNTIL ITS FULL 
3;1T WRAPS AROUND ETC. 

;MAKE SURE PACKET AND DATA ARE CLEAN 
;STARTING RAM ADDRESS 

sSTOP kd pe TSVOS DIAGNOSTICS 
sSIZE OF RAM READ 

sSET R4& WITH PACKET ADDRESS 

sISSUE WRITE SUB SYS MEM COMMAND 
;CHECK TSSR AND WAIT FOR SSR TO SET 


:BR, 4 NO ERRORS IN TSSR 

sSAVE TSSR 

3;BUMP COUNT 

;TSSR BAD AFTER WRITE a4. sxs MEM 

+t calraen 

TWORO 317 
:WORD T23WSS 
-WORD PKTSSR 


sLOOP IF SELECTED 
C$CLP1l 


TRAP 
sMAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM ADDRES 
sREAD RAM COMMAND FOR WRITE SUB SYS M. 
;SIZE OF RAM READ 
;SET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM CMD Satan RAM) 
sCHECK TSSR_ AND WAIT a SET 


:BR, 7 NO ERRORS IN T 

sSAVE TSSR 

;BUMP COUNT 

;TSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
. WORD 18 
-WORD T23WSS 
WORD TS 


sLOOP IF SELECTED 
sCLEAR REGISTERS 


sCLEAR REGISTERS 
sPICK UP BYTE READ FROM RAM 
PECTED 


;BUMP COUN 
sRNC=RAM NOT CORRECT 





SEQ 0126 


K10 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


032176 
032 


5324 032344 
Satees 


5325 032346 
5326 032352 


104406 
005237 033664 
005237 033664 


062 000400 
023701 033664 
001332 

062703 001750 
020337 033660 
00200 

020327 177776 
031624 
004737 035134 
012737 102010 
012704 033630 


000000 
004737 016456 


005237 002212 


0440 
023727 002212 
004737 017322 


104402 
004737 035042 
004737 035176 


MACRO VOS.03 


033630 


000017 


110%: CKLOOP 


115%: ADD #1000. ,R3 


BGE 120$ 

CMP R3, #65534 

BEQ 120$ 

JMP 65$ 
1208: 

JSR T23RT 

MOV e1b20i0. ane 

MOV $T23PK2,R 

MOV Ra TSbBCRS) 

JSR PC ,CHKTSSR 

BCS 130$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T23RWN,PKTSSR 
130$: 

ENDSUB 

CMP FATFLG,#@15. 

BLO 999 

JSR PC ,CKDROP 
9995: 


tad 
TEST 3, SUBTEST 4 
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sLOOP IF SELECTED 


s;BUMP RAM ADDRESS TO BE CHECKED 
sBUMP RAM ADDRESS TO BE CHECKED 
iGET SIZE OF RECORD 

sFIGURE OUT _END RECORD ADDRESS 


sIS R3 OVER MAX RECORD SIZE 

sIF RECORD SIZE IS TOO BIG QUIT 
sEND OF SUBTEST MAX RECORD SIZE 
3BR, IF COMPLETED 

:D0 MORE RECORDS 


;CLEAN UP PACKET 


; REWIND (POSITION) COMMAND 
sLOAD R4 WITH —— 


sSAVE Tsor CONTEN 
sBUMP COUNT 
iTSSR IS INCORRECT a 


. WORD 
. WORD 
. WORD 


SEQ C127 


C$CLP1l 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10046: 


TRAP 
31S ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
tFTELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
‘THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 


BGNSUB 


JSR PC, T23REST 
JSR PC, T235RTS 


CSESUB 


p> >>>>>>>>>>> ecg aatEst >>>>>>>>>>>> 


TRAP 
3SET COMMAND PACKET 
;RESTORE PACKET 


C$B8SUB 


L10 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


032356 


004737 035134 


004737 016114 
095237 002212 


013737 002172 
012704 033520 


004737 010752 
005237 002212 


012737 104405 
013737 003116 
062 000001 


000400 
012704 033650 

000000 
004737 016370 

000002 
012702 100206 
020 


005237 002212 
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033540 


JSR PC, T23RT2 ;SET UP OTHER COMMAND PACKET 
PECTS ESSE SESE EERSTE ES SESE EEEERESESESESERESS ESSE EERE SEES SEES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


: 
FESS SSS SEES SESS SESE ESEEESESESES ESE SEES ESE SESE SE SEEE ESSE 


JSR PC, SOFINIT :00 INITIALIZE ON CONTROLLER 
BCS 208 ;8R IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CS$ERDF 
WORD 321 


‘WORD SFIERR 
"WORD  SFIMSG 


MOV UNITN, T23DSW sSET DRIVE NUMBER IN PACKET 
MOV @T23PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


pF EEE EEE ESSE EEEEEEEE ESS SSESEESSSSSSEE SEES SESESE ESTES ERE SEE TEES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
FESS SESS ESSE SESS ESSE S ESSE SEES SESE SES SSE SESS ES SESE SESS SESSESEEEEES 


20$: 


JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 233 ;BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
.WORD 322 
"WORD WRTMSG 
"WORD SFIMSG 
FFF SSS SSSSSSSSSSSESSESSESSSSE SSS SSE SSE SESE SESS SSESSSSESSESSESSSESSESSESSESESESES 
3 
;WRITE DATA, ACK, ILLEGAL BITS 
; 
FFSSSSSSSSSSSSSSE SSS SSS SESS SSS SSESSESSES SESS SSE SSESE SSS SSSESSESS SSS SESSESEEESE 
23%: MOV #104405, T23PK3 ;WRITE DATA, ACK, ILLEGAL BITS 
MOV FREE, T23WB ;SET UP WRITE BUFFER ADDRESS 
ADD $1, T23WB ;MAKE SS ODD (ILLEGAL) 
MOV 0256. ,T23SZ ;SET UP BUFFER SIZE 
MOV OT23PK3,R4 3R4 = POINTER TO PACKET 
MOV R4,TSDB(RS) ;ISSUE COMMAND 
JSR PC’ WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),RI :GET TSSR CONTENTS 
MOV @SSR!SC!BITI!BIT2,R2 SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 803 ;BR, IF OK ESP. FUNCTION REJECT 
INC FATFLG ; BUMP T 
ERRHRD ERRNO, 1237TM,PKTSSR ;TSSR INCORRECT AFTER WRITE COMMAND 
TRAP CSERHRD 


SEQ 0128 


M10 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


000503 
034102 
012166 


003652 
012154 


013737 
012704 


002212 
017322 


003130 
033110 
035042 
035176 
035134 


016114 
002212 


002172 
033520 
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000017 


033540 


. 323 
«WORD T23TM 
«WORD PKTSSR 


80$: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLP1 
ENDSUB }>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
Li 3 
TRAP CsESUB 
CMP FATFLG, #15. 31S ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 


999$: 

3° 

; TEST 3, SUBTEST 5 

i VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
;THE PROPER ERROR STATUS WITHOUT MOVING TAPE 


BGNSUB y>>>>>>>>>>>> at SUBTEST >>>>>>>>>>>> 
TRAP C$BSUB 


TST NXMFLG :00 WE HAVE IT? 
BNE 10$ ; ENOUGH 
JMP 90$ ;SKIP THIS TEST IF NOT 
10$: JSR PC, T23REST ;SET COMMAND PACKET 
JSR PC, T23RT3 sRESTORE PACKET 
JSR PC, T23RT2 3SET UP OTHER COMMAND PACKET 


p EERSTE EEESESEES SEES SESS EEESEESESES ESSERE SESE SEES ES SESE SEES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FFSSSSS SSS SSESSS SSS SSS SSS SSS SESS SSS SKS SSS SSS SSSESSSSSSE SSS SES ESSE ESSESE 


JSR PC, SOFINIT sD0 INITIALIZE ON CONTROLLER 
BCS 20$ sBR IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV sCONTENTS OF TSSR REGISTER 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP  CSERDF 
.WORD 324 
“WORD SFIERR 
“os ‘WORD SFIMSG 
MOV UNITN, T23D0SW ;SET DRIVE NUMBER UP 
MOV OT23PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


se SSSSEESS SESE SES ESSEEESSESSESESESSSETESESESESES TERETE SES ESE SE EES 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FFSSSSSSSSESS SS SESS SSSSSSSSSSSESSESSESSSSSSSESSSSSESSSSSSSSESSSSSSSESSSESSESSES 


SEQ 0129 


N10 


TSV7 - HARDWARE TESTS 1-8 MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 77-25 oon oun 
TEST 3: BASIC WRITE DATA 
5432 
5433 032646 004737 010752 JSR PC, WRTCHR ;ISSUE WRITE CHARACTERISTICS 
5434 032652 103407 BCS 123$ ;BR, IF COMMAND ISSUED OK 
5435 032654 005237 002212 INC FATFLG ;BUMP C 
5439 032660 010001 MOV RO,R1 }SAVE CONTENTS OF TSSR 
5440 032662 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
032662 104456 TRA C$ERHRD 
032664 000505 ORO 325 
032666 005056 "WORD WRTMSG 
eae 032670 012154 "WORD SFIMSG 
Seas FESS SESS SEES ESSE SESE SS ESSEC ESSE ESSE S SESS SESE SEES SEES ESSE SESE ESEESE 
3 
Seas ;WRITE DATA, ACK, CVC=1 
3 
Saat FESS SSESSSSSS SSE SSS ESSES ESSE SESESESSESESSESSESSESSES ESSER ESESESSEEESESEE SESE 
5448 032672 1234: 
5449 032672 005737 002216 TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
5450 032676 001026 BNE 130$ 6R IF SWITCH IS ON 
5451 032700 005237 002216 INC EXTFEA ;ONLY ONE TIME 
5452 032704 112737 000200 033663 MOVB $200,7238S1 WRITE MISCELLANEOUS CONT/READ STATUS 
5453 032712 112737 000010 033662 MOVB #10, 1238S0 ‘FUNCTION SELECTION BIT (TURN ON EXTFEA Hu SWITCH) 
5454 032720 012704 033630 MOV ° }WRITE SUBSYS MEM PACKET 
5455 032724 010465 MOV R4,TSDBC(RS) ;ISSUE COMMAND 
032730 004737 016456 PC. CHKTSSR }WAIT FOR SSR 
5457 032734 103407 BCS 136$ ; IF NO ERROR 
5458 032736 010001 MOV RO,R1 ;ERROR, SAVE TSSR 
5459 032740 005237 002212 INC FATFLG ;BUMP COUNT 
5463 032744 ERRHRD ERRNO, T22SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
032744 104456 TRAP CSERHRD 
032746 000506 .WORD 326 
032750 027230 "WORD T22SSR 
032752 012166 "WORD PKTSSR 
5464 032754 130%:  CKLOOP ;LOOP IF SELECTED 
. 032754 104406 TRAP = C$CLP1 
Saee 032756 012701 160000 MOV #160000,R1 LOW ADDRESS STAR 
5467 032762 012702 177776 MOV 4177776 Ro Hier CHECK FOR NXM (HIGHEST) 
5468 032766 004737 016516 JSR PC, XNXM LOOK FOR NXM ADDRESS 
5469 032772 103045 BCC 80$ IF NON FOUND 
3470 032774 610137 003132 MOV R1,NXMLO ect ADDRESS UP FOR TEST 
5472 
3473 033000 005037 033654 CLR T23WB-2 ;CLEAR OUT THE HIGH BITS AREA 
5475 033004 012737 033650 MOV #140005, T23PK3 WRITE DATA, ACK, CVC= . oe 
5476 033012 013737 003132 MOV NXMLO, T23WB sSET UP E BUFFER 
033020 012737 100 033656 MOV 064. tessz igeT uP Werte TE. 
5478 033026 012704 033650 MOV OT23PK3 RO = POINTER TO PACKET 
033032 010465 MOV R4, TSDBCRS) 1 SSUE COMMAND 
5480 033036 004737 016370 JSR PC WAITE ;WAIT FOR SSR TO SET 
5481 033042 016501 MOV TSSR(RS iGET TSSR CONTENTS 
5482 033046 012702 104210 MOV pec TMXHeSSh BITS, R2 sSET P EXPECTED 
5483 033052 020102 CMP R1,R2 ARE THEY EQUAL 
5484 033054 001414 BEQ 803 ;BR, IF OK ESP. FUNCTION REJECT 
5485 033056 005237 033654 INC T23WB+2 ;BUMP TO NEXT ADDRESS BIT 


Bil 
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TEST 3: BASIC WRITE DATA ; 
5486 033062 023727 033654 000004 CMP T23WB+2, 04 ;CHECK TO SEE ¥ OVERFLOW INTO 19 BIT 
5487 033070 001345 BNE 24$ ;BR, IF hy 17 AND 18 
5488 033072 005237 002212 25%: INC FATFLG ; BUMP COUN 
$492 033076 ERRHRD ERRNO, T23TM,PKTSSR ;TSSR SRCORRECT AFTER ay 1 COMMAND 
033076 104456 C$ERHRD 
000507 "MORO 327 
033102 034102 «WORD T23TM 
033104 012166 -WORD PKTSSR 
5493 033106 80$: CKLOOP ;LOOP IF SELECTED 
033106 104406 TRAP C$CLP1 
$494 033110 90$: 
5495 033110 ENDSUB 5>>>>>>>>>>>> END SUBTEST >>>>>>>>> >>> 
033110 L10050: 
033110 104403 TRAP CS$ESUB 
5496 033112 023727 002212 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 
$497 033120 103402 BLO 999$ ;BR, IF LESS THAN 25 
5498 033122 004737 017322 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
5499 033126 999$: 
5500 
5501 3° 
5502 ; 
Seog mid 3, SUBTEST 6 
5505 ; VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A Ai, 
5506 ;BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
5507 sNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
5508 STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
rr s¢4 ;THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 
3- 
5511 
5512 033126 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033126 13.6: 
033126 104402 TROP C$BSUB 
5513 033130 005737 003130 TST NXMFLG ;D0 WE HAVE IT? 
5514 033134 001002 BNE 10$ 3BR, IF ENOUGH 
5515 033136 000137 033454 JMP 130$ ;SKIP THIS TEST IF NOT 
5516 033142 004737 035176 10$: JSR PC,T23RT3 oes Tone PACKET 
5517 033146 004737 035042 JSR PC, T23REST :SET COMMAND PACKET 
rete 033152 004737 035134 JSR PC, T23RT2 sSET UP OTHER COMMAND PACKET 
soso Pert irri Titi iti tii ii ti ititiiiiitititititiittitiititititit titi tt ttt tt 
3 
sosg sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
gees Iti titi iti iii i ti iii iti tiiititiiiiiitittitiiit ti tit tit ittt ttt tit tts 
5526 033156 004737 016114 JSR PC,SOFINIT :D0 pare ON CONTROLLER 
5527 033162 103407 BCS 20$ ;BR IF INIT WAS OK 
5528 033164 005237 002212 INC FATFLG sBUMP COUNT 
5532 033170 010001 MOV RO,R1 S CONTENTS OF TSSR REGISTER 
5533 033172 ERROF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS ar OK 
033172 104455 RAP C$ERDF 
033174 000510 é 2 THORD 328 
033176 003652 -WORD SFIERR 
033200 012154 -WORD SFIMSG 
5534 033202 70$: 
5535 033202 013737 002172 033540 MOV UNITN, T23DSW sSET DRIVE NUMBER IN PACKET 


TSV7 - HARDWARE TESTS 1-86 
TEST 3: BASIC WRITE DATA 
rh. | 033210 012704 033520 


544 033214 


5586 
5589 


012701 
012702 
004737 
103051 


010137 
012737 


012737 


010752 
002212 


160000 
177776 
016516 


003132 
000000 
140005 
003132 
000500 
033652 
000000 
033650 
000000 
016370 
000002 
104210 
033654 
033654 
002212 


035134 
035176 
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033654 
033650 


033656 


MOV #T23PACKET ,R4 


SEQ 0132 


;SUBROUTINE NEEDS PACKET ADDRESS 


SEER EEE EEE EEE EEE EEE EEE EEE REESE EEE EEE EEE EEE EEE EEE EEE EEE EEE ES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
FEES SESE EEE EEE EEK EEE SESE EEE SEE EEE SESE EEE EEE EEE EEE EE ES EES 


JSR PC ,WRTCHR 
BCS 233 
INC FATELG 


MOV 
ERRHRD ERAND. WRTMSG , SFIMSG 


+S ae ® WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


;BUMP COUNT 
;SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC re 


FEES EKER SESE SEEKS EEE ESE SEER EEESE SEES EE 


;WRITE DATA, ACK,CVC=1 


: 
FEES SEEKS EEE SESE SS EEE ESESKE REESE EEE ES 


23$: 
MOV #160000,R1 
MOV $177776.R2 
JSR PC, XNXM 
BCC 80$ 
MOV R1,NXMLO 
as MOV $0, T23WB-2 
MOV #140005 , T23PK3 
MOV NXMLO, Ri 
SUB #500,R1 
MOV R1, T23WB 
MOV 90. ,T23SZ 
MOV OT23PK3,R4 
MOV R4,TSDBCRS) 
JSR C* WAITF 
MOV TSSR(RS),R1 
MOV @SC!NXM!SSR!BIT3,R2 
CMP R1,R2 
BEQ 80$ 
INC T23WB+2 
CMP T23WB+2, 04 
BNE 243 
254: INC FATFLG 
ERRHRD ERRNO, 123TM,PKTSSR 
80$: CKLOOP 
JSR PC, T23RT2 
JSR PC. T23RT3 


C$ERHRD 

.WORD 329 
“WORD WRTMSG 
"WORD SFIMSG 

;NXM LOW ADDRESS START 

;LIMIT CHECK FOR NxM (HIGHEST ) 

;LOOK FOR NXM ADDRESS 

BR MOUND 

;SET ADDRESS UP FOR TEST 

;SET TO 16 BIT ADDRESS 

;WRITE DATA, ACK,CVC#1 

;HIGHEST MEMORY ADDRESS LOW BITS 


;SET ADORESS A LITTLE LOWER 
;LOAD INTO THE PACKET 
;SET UP BUFFER SIZE (64K BYTES) 
sR4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR _TO SET 


;BR, IF NO O 

;BUMP COUNT 

iTSSR INCORRECT AFTER | 5 ey 

CSERHRD 

THORO 330 
.WORD T23TM 
WORD PKTSSR 

;LOOP IF SELECTED 
TRAP C$CLP1 


sCLEAN UP PACKET 
sRESTORE PACKET 


TSV7 - HARDWARE TESTS 1-8 


TEST 3: BASIC 


3520 
5620 033520 
3522 


WRITE DATA 


012737 


102010 033630 
033630 
000000 
016456 


002212 


002212 
017322 
016576 
030252 


000017 


130$: 


999%: 


163$: 


#102010, T2sPKe 
$T23PK2,R 

R4, TSbBCRS) 

PC. CHKTSSR 

130$ 

RO,R1 

FATFLG 

ERRNO, T23RWN,PKTSSR 


FATFLG, #15. 
999$ 

PC, CKDROP 
PC, TSTLOOP 
163$ 
T23L00P 


TST 


3° 
sLOCAL STORAGE FOR THIS TEST 


3 = 
. BLK 
T23PACKET : 


WORD 
*BLKW 


T230SW: 
T23BFR: 


; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


BLKB 


T23PK3: 


10-<.-TSV2E7> 
100004 
T23DATA 

t¢) 

8. 


T23BFR 
te) 

10. 

te) 


0) 

2s. 
10-<.-TSV2E7> 
100006 

T238F 2 

te) 

6. 


10-<.-TSV2E7> 
100005 
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SEQ 0133 


sREWIND (POSITION) COMMAND 
sLOAD R4 WITH PACKET ADDRESS 
s ISSUE REWIND COMMAND 
sWAIT FOR SSR TO SET 
sBR, IF TSSR IS OK (GOOD) 
s;SAVE TSSR_CONTENTS 

UMP COUNT 


3B Cc 

;TSSR IS INCORRECT AFTER REWIND 
TRAP CS$ERHRD 
-WORD 331 
. WORD T23RWN 
.WORD PKTSSR 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10051: 


TRAP CSESUB 
sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


;D0 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP 
. WORD 


CS$EXIT 
L10043-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 


sl 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


035042 


000000 
000000 
000000 


100005 
100405 


102005 
177777 


035042 
035046 012701 033520 


035052 


012721 100004 
035056 012721 033530 
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T23WB: 
T23SZ: 


fosrsz: . 


Nee 


T23W 
TST23I0 


: .WORD 
: .WORD 


- WORD 
. WORD 


ooo 


oo 


1 
177777 


TEXT MESSAGES FOR TEST 


SEQ 0134 


sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


;LARGEST TAPE RECORD IN BYTES 


;BSELO AREA 
sBSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 


; TEMPORARY REGISTER 
sRETRY COMMAND 


sWRITE DATA (NEXT) 
;WRITE DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 


‘WRITE Command Got Seoareed 


‘EOT Not 


I 


000 4k Writes, (Use Shorter Tape)’ 


Found 
‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
Not Correct After WRITE Command Re ject’ 
"Rewind (POSITION) Command 


*TSSR 
‘RAM 


Not Accepted’ 


Error, Correct Date Pattern Not In Ram’ 


*TSSR Init. Failed After WRITE Command’ 

‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

*TSSR Not Correct After WRITE DATA Command, SWB Bit Set 

‘TSSR Not Correct After WRITE DATA Command, Check For ae Offline’ 
‘CVC Set, Didn’'t Reset VCK In Nessage Buffer’ 

‘TSBA Not Correct aS WRITE DATA Command’ 


, waite 
-ASCIZ 


SUBSYSTEM 


‘Basic Write’ 


Command Not Accepted (RAM Read)’ 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T23REST: 


OT23PA 


9100004 , ( 


@T23DA 


‘wit R1 
TA CRI Ds 





sSAVE_THE REGISTERS 

sSTART OF THE PACKET 

sWRITE a AN MEM. WITH ACK 
;ADDRESS OF CHARAISTICS DATA BLOCK 


TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: BASIC 


012721 
005021 


005037 
032701 
001452 
013702 
032702 
001401 
000405 
032702 
001002 
000440 
000207 


000012 
033542 


000024 


000000 
000030 
177777 


033650 
100005 


033670 
100000 


033552 
000002 


020000 
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“ ee SEQ 0135 
CLR )- sEXTENDED ADDRESS 
MOV 910. ,(R1)- ;SIZE OF DATA BLOCK IN BYTES 
wy eTesBFR, »CR1)- sADDRESS OF MESSAGE BUFFER 
wy Kite »CR1)+ ;LENGTH OF MESSAGE BUFFER 
MOV #0,(R1) ;SELECT DRIVE ZERO 
MOV $24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
033542 64$: MOV 0177777, T23BFR(R2) PALL ONES TO MESSAGE BUFFER 
TST -(R2) ;BUMP DOWN TO NEXT LOCATION 
CMP R2,00 yR2 AT ZERO YET 
BNE 64$ ;KEEP GOING UNTIL DONE 
RTS PC ;RETURN 
T23RT2: 
SAVREG ;SAVE THE REGISTERS 
MOV #T23PK2,R1 ;START OF THE PACKET 
MOV #100006, (R1)- ;WRITE SUBSYSTEM MEM. WITH ACK 
MOV $T23BF2,(R1)+ sADDRESS OF DATA BLOCK 
CLR (R1)- sEXTENDED ADDRESS 
MOV #6.,C(R1)+ sSIZE OF DATA BLOCK IN BYTES 
MOV #T23BF2,R1 sPOINT TO DATA SEL AREA 
CLR R1)- 
CLR (R1)- 
CLR (R1) 
RTS c ;RETURN 
T23RTS: 
SAVREG ;SAVE THE REGISTERS 
MOV #T23PK3,R1 sSTART OF THE PACKET 
MOV #100005, (R1)- ;sWRITE TAPE. WITH ACK 
CLR CR1)- ;ADDRESS OF DATA BLOCK 
CLR (R1)- sEXTENDED ADDRESS 
CLR C(R1) ;SIZE OF DATA BLOCK 
RTS ;RETURN 


INE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST 


; 
:"OUT 
3, SUBTEST 2 € 3 


i INPUTS: R1=TSSR 
4 SUBROUTINE SETS UP T23WRT FOR RETRY 
ge 
T23CHK: 
SAVREG ;SAVE THE REGISTERS 
CLR T23TMP ;CLEAR LOCAL REGISTER 
BIT @SC,R1 ; T IN TSSR? 
BEQ FATAL ;NO, YOU GOT PROBLEMS! 
MOV T23BFR+10,R2 YES,GET XSTATL 
BIT #X1.UNC,R2 ;I1S UNC SET IN XSTAT1? 
BEQ NO, CHECK COR 
BR RETRY DO WRITE DATA RETRY 
1s: BIT #X1.COR,R2 E e0R OR SET IN XSTAT] THEN? 
BNE RETRY ite. SO RETR 
BR FATAL 3NO, YOU GOT Y PROBLEMS 
EXIT: RTS PC ;RETURN 


TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: BASIC 


5808 
$809 035412 
5412 


5818 035434 


012703 


012737 


017322 
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033652 
033650 


033670 


002170 


RETRY: 
2s: 


FATAL: 


* 


;THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
OF ODD _AND 


OMMANDS OPERATE PROPERLY 


JSR 
ENDTST 


#20. ,R3 

FREE, T23WB 
OTO3URT, = 
slemm 3,R 


TSSR(RS),R1 
@SSR,R2 


1 
EXIT 
T23TMP 
#5, T23TMP 
23 


FATFLG 
T23BFR,R 


ERRNO, SCHERR, PKTMES 


PC ,CKDROP 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER 


ADDRESS 
;WRITE DATA RETRY COMMAND SETUP BY SUBROUTINE 


;SET UP_R4 WITH PACKET ADDRESS 
iSET PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
iSET UP RECORD SIZE IN PACKET 

s ISSUE _ COMMAND 
;WAIT FOR re TO SET 


sGET TSSR CONTENTS 
iSET UP EXPECTED 
sARE THEY EQUAL 


;BR, IF OK 
sTRY FIVE TIMES THEN EXIT 


;DONE FIVE YET? 
sNO GO AGAIN 
;BUMP COUNT 
;LOW ORDER MSGBUF 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP C$ERHRD 
-WORD 332 
-WORD SCHERR 
. WORD PKTMES 
;DROP THE UNIT 
L10043: 
TRAP CS$ETST 


-SBTTL TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


VARIOUS COMB 


EVEN 


sC INATIONS 
;DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
sSPACE IS a + AND BYTE-SWAP CONTROL ARE USED. THIS TEST 


sOF COURSE, 
sREADING 


FURTHER VERIFIES THE WRITE DA 
AND VERIFYI EN DA 

; TERMINATIONS ON exe TONAL OR ERR 

sLONG, ORD LENGTH 

;BUFFER ADDRESSES, IL FIEL 
;READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. 


. ALSO TESTED ARE 
OR CONDITIONS: RECORD H 
AD Ae a af AT BOT, ILLEGAL DATA 


SHORT, RE 
LEGAL CODES IN THE MODE 


TA COMMAND BY ACTUALLY 
PROPER 


D OF THE BASIC 
THE TEST 


; 
sTHE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 


GEPRT1, EPRTSW 
KTENABLE 


PC, KTOFF 
TST241D,RO 
PC, TSTSETUP 


sSET UP ag ed ERROR MESSAGE 


T1l OFF 
sASCII MESSAGE TO IDENTIFY TEST 
sD0 INITIAL TEST SETUP 


Hil 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


5819 
5820 
5821 


035440 
035444 
035450 


5864 035572 


004737 
005037 


022236 
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003130 
012737 000005 002206 


012737 


012737 
012704 


016114 


000250 
002116 
177772 
177756 
045156 
002212 


000007 
045000 


045156 


045020 


JSR PC ,MEMCK 

CLR NXMFLG 

MOV #S,LOOPCNT 
3° 


; 
sTEST 4, SUBTEST 1 
H 


SEQ 0137 


sCHECK FOR MEMORY 
;SET FLAG 
sPERFORM S ITERATIONS 


i VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 


iV CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
sVOLUME CHECK (VCK) IS SET. ALL LEGAL 
: COMBINATIONS FIELD ARE TESTED 


MODE 
3(I.€., IT IS VERIFIED THAT THE COMMAND 
VCK BEING SET RATHER THAN ERRONEOUS DECODING 


; DUE 70 
3;OF THE MODE FIELD. 
’ 
; 
ge 


T24LOOP : 


BGNSUB 
JSR PC, T24REST 
eee TatnTS 

MOV #65000. , T24DLY 


IS REJECTED 


3 >>>>>>>>>>>> “se SUBTEST >>>>>>>>>>>> 


. 
. ° 


FESS SSSSSSSSE ESSE SESS SSS ESSE SESS SESEKESE SES EEES 


; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FESS SSSSSSS SESE SESS SEES SES SES ESSE EEE SESE ESSE ESSE ESSE SES ES ESSE ES EE 


S$: JSR PC, SOFINIT 
BCS 208 
DELAY 250 
DEC T24DLY 
BNE S$ 
INC FATFLG 
MOV RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 
MOV #7, T24DSW 
MOV OT24PACKET ,R4 


TRAP C$BSUB 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;LOAD UP DELAY ROUTINE 

s00 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;DELAY AWHILE 
MOV #250, (PC)+ 
MOV pea »CPC)+ 
DEC ~6CPC) 
BNE 
DEC “23¢eC) 
BNE -20 

sBUMP DELAY COUNTER 

;BR, IF MORE DELAY REQUIRED 

;BUMP COUNT 

;CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS a OK 

RAP CS$ERDF 

TWORO 401 
-WORD SFIERR 
-WORD SFIMSG 


sSET DRIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 
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SEQ 0138 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
5865 
sect FREESE EEE SESE ERE EEE EEE EERE EERE EERE EEE EEE EEE EEE EEE EEE EES 
; 
Fs +¢4 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
sary FEROS E EERE EEE EEE EEE EEE TEES SESE SEES EEE E EEE E EEE EE EEE EEE 
5872 035576 004737 010752 JSR PC,WRTCHR s ISSUE WRITE hina 
5873 035602 103407 BCS 24$ BR, IF COMMAND ISSUED OK 
3874 035604 005237 002212 INC FATFLG 3B OUNT 
3878 035610 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5879 035612 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC we 
035612 104456 — 
035614 000622 TWORO 402 
035616 005056 «WORD WRTMSG 
035620 012154 WORD  SFIMSG 
5880 035622 005737 002216 24s: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
geek 035626 001044 BNE SO$ ;BR IF SWITCH IS ON 
5883 035630 112737 000200 045141 MOVB #200, T24BS1 eT MISCELLANEOUS CONT/READ STATUS 
5884 035636 112737 000010 045140 MOVB #10, 124850 FUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH) 
S885 035644 012704 045110 MOV $T24PK2 ,R4 ;WRITE SUBSYS MEM PACKET 
5886 035650 010465 000000 MOV R4, TSDBCRS) s ISSUE COMMAND 
5887 035654 004737 016456 JSR PC,CHKTSSR +e ‘a SSR 
5888 035660 103407 BCS 30$ NO ERROR 
5889 035662 010001 MOV RO,R1 ERROR, SAVE TSSR 
5890 035664 005237 002212 INC FATFLG 3;BUMP COUNT 
5894 035670 ERRHRD ERRNO, T24SSR,PKTSSR iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
035670 104456 TRAP C$ERHRD 
035672 000623 «WORD 403 
035674 045677 «WORD T24SSR 
035676 012166 -WORD PKTSSR 
5895 035700 30$: CKLOOP ;LOOP IF SELECTED 
035700 104406 TRAP C$CLP1 
$896 9035702 012737 000007 045020 MOV - #7,T24DSW sSET DRIVE NUMBER IN PACKET 
a4 035710 012704 045000 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
a 444 FREESE SEES E EEE EEE SESE EEE EEE EEE EEEEEEEERESEEESE EES SE SESE EERE E SEES 
3 
Sons sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
5 
goos FEES EE ESSERE EEE E SEES EEE EEE SEE REESE EEEEESES ESSE EERE S ESSERE EEE ES 
S905 035714 004737 010752 JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
5906 035720 103407 BCS S0$ ;BR, IF COMMAND ISSUED OK 
$907 035722 005237 002212 INC FATFLG sBUMP COUNT 
$911 035726 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
$912 035730 ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC rane 
035730 104456 C$ERHRD 
035732 000624 TWORO 404 
035734 005056 -WORD WRTMSG 
035736 012154 -WORD SFIMSG 
5913 035740 50$: CKLOOP sSCOPE LOOP 
035740 104406 TRAP C$CLPl 
$914 035742 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
5915 035746 032701 000100 BIT #OFL,R1 sCHECK FOR THE OFFLINE BIT SET 
5916 035752 001006 BNE 60$ ;BR, IF OFFLINE (GOOD) 


Jil 


TSV7 - HARDWARE TESTS 1-8 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

5917 035754 005237 002212 INC FATFLG ;BUMP COUNT 

5921 035760 ERRDF ERRNO, T240FL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
035760 104455 TRAP CSERDF 
035762 000625 .WORD 405 
035764 046455 "WORD T240FL 
035766 012154 :WORD  SFIMSG 

5922 035770 60$: CKLOOP ;LOOP IF SELECTED 
035770 104406 RAP C$CLP1 

3925 035772 012703 045146 MOV #T24RN,R3 :POINTER FOR COMMANDS 

aoee FESS SESS SESE ESSE SEES SEES SESS ESSE ESE SESE SESE CESSES ESE SESE ESE SESE ESESE 

3 
3927 ;TAPE READ COMMAND IN PLACE 
: 

Fa $4 FESS SSS ESSE ESS SSS SS SSE SESE SESE SESS SESS ESSE SESS SESE SESE SESE EES 

5931 035776 011337 045130 65$: MOV (R3), T24PK3 ;TAPE READ COMMAND IN PLACE 

5932 036002 012704 045130 MOV $T24PK3,R4 ;R4 = POINTER TO PACKET 

5933 036006 010465 000000 MOV R4, TSDBCRS) :1SSUE COMMA 

5934 036012 004737 016370 JSR C.MAITE WAIT FOR SSR TO SET 

5935 036016 016501 000002 MOV TSSR(RS ;GET TSSR CONTENTS 

5936 036022 012702 100306 MOV pee isc Ore BIT !BIT2, R2 ;SET UP EXPECTED 

5937 036026 020102 CMP R1,R2 }ARE THEY EQUAL 

5938 036030 001406 BEQ BR, IF OK ESP. FUNCTION REJECT 

5939 036032 005237 002212 INC FATFLG ;BUMP COUNT 

5943 036036 ERRHRD ERRNO, 124TM,PKTSSR ;TSSR INCORRECT AFTER TAPE MOTION CMD 
036036 104456 RAP C$ERHRD 
036040 "TORO 406 
036042 13 "WORD 124 
036044 012166 “WORD PKTSSR 

5944 036046 80$: CKLOOP ;LOOP IF SELECTED 
036046 TRAP C$CLP1 

5945 036050 005723 TST (R3)- ;BUMP TO NEXT COMMAND 

5946 036052 022713 177777 CMP #177777, (R3) ;END OF THE COMMANDS YET 

5947 036056 001401 BEQ 90$ ; IF DONE 

5948 036060 000746 BR 65$ ;MORE COMMAND(S) TO GO 

5949 036062 90%: 

5950 036062 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
036062 L10053: 
Ocoes TRAP CSESUB 

5951 036064 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 

5952 036072 103402 BLO 999$ ;8R, IF LESS THAN 25 

5953 036074 004737 017322 JSR PC, CKDROP ;TRY TO DROP THE UNIT 

5954 036100 999: 

5955 

5956 i? 

5957 3 

3958 sTEST 4, SUBTEST 2 

5960 VERIFIES THAT READ FORWARD COMMANDS WITH SWB=0 

5961 ;OPERATES PROPERLY. THE TAPE IS FIRST REWOUND THEN 

5962 ;WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

5963 ;LENGTH AND DATA CONTENT. THEN REWOUND 

5964 sAGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 

5965 iC STATUS DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

5966 H READ FORW. T TO THE LENGTH OF THE 

5967 EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 





SEQ 0139 


K11 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


6018 036202 
6019 036206 


003652 
012154 
013737 
012704 


004737 
103407 


047624 
047470 
047562 


016114 
002212 


002172 
045000 


010752 
002212 


011136 
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045020 


sOCCUR. 


BGNSUB p>>>>>>  »>>>> on newer >>>>>>>>>>>> 
~ _ FRAP CseSuB 
JSR PC, T24RT3 3SET UP OTHER COMMAND PACKET 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC,T24RT2 3SET UP OTHER COMMAND PACKET 
erti tii iit iii ititii titi itititittttitittitiitititttttttt ttt ttt ttt tt 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
, eeennsereeeesesssroreneoresesnneshbeceoesbooreeooesesecooone;lees 
JSR PC,SOFINIT ;D0 PATA Te ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG I FATAL ERROR TSSR WAS NOT 1X. ——— 
THORD 407 
‘WORD SFIERR 
20$ -WORD SFIMSG 
7 MOV UNITN, T24DSW ;SET DRIVE NUMBER IN PACKET 
MOV S@TO4PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


FEES SESE TEESE SESE SEES ESS EEEEEEEESEESEEES ERE SESE EEE E SESE SEES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
FESS SSS ESSE ESSE SESS SES SESSESE ESSE SESS SSS SESS SESE SES SESE SESE ESE ESSE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 24$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC Fane 
. WORD 
- WORD 
. WORD 
243: CKLOOP ;LOOP IF SELECTED 
TRAP 


PSSST E SES SS SESS SSS SS ESSE SESESESESSSSSSSEEESESE SESE SESE ESET SEES 
; 

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

| Soeeoccescocccoseesesssosoosoesesscoseseseesesceseeeceeoeeseeesess 


JSR PC , REWIND ;CALL TAPE REWIND COMMAND 
BCS 30$ ;6R, IF NO PROBLEM 


C$CLP1 


SEQ 0140 


Lil 


TSV7 - HARDWARE TESTS 1-8 


TEST 4: 


6071 


BASIC 


010001 
005237 


104456 
000631 


046266 
012166 
104406 


013701 


104406 
012703 
013737 


012737 
012704 


002212 


000400 
003116 


140005 
045130 


017542 
045136 
000000 
016370 
000002 
000200 


002212 
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READ DATA (FORWARD AND REVERSE) 


045132 


045130 


MOV RO,R1 
INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


30$: CKLOOP 


BFF SSS SSE SEEKS ESSE SEES ESSER ES ESSE ES ESSE SESE SESE SESE EE EEE EEEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
FSFE SSS SESS SESS ESSE ESSE SESE SSE SESE SEES SESE SESE SES ERE EEE EEE EESES 


MOV T24BFR-6,R1 
MOV Rl, 

BIS #81T1,R2 
CMP R1,R2 

BEQ 403 


INC FATFLG 
ERRHRD ERRNO, T24B0T ,EXPREC 


CKLOOP 


MOV 


$256. ,R3 
MOV FREE, T24RB 


sSAVE TSSR 

;BUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP C$ERHRD 
«WORD 409 
«WORD T24RWN 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP C$CLP1 

a UP _XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

BR IF EQUAL (OK) 

;TAPE NOT AT BOT AFTER REWIND 
TRAP C$ERHRD 
. 410 
-WORD T24B0T 
«WORD EXPREC 

sLOOP IF SELECTED 
TRAP CSCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FSS SSSSSSSSSSSSS SESS SSS SSS SES SESS ESSERE ESSE SEES SESE SES ESSESES ESE EE 


{WRITE DATA,CVC*1,ACK COMMAND 


a 
FFSSSSSSSSSS SSS SSS SESS SSS SSS SSS SESS ESSE SSE SESS SESS SSE SSS SSE S ESE ES ES 


MOV #140005, T24PK3 
MOV OT24PK3,R4 
65$: 

MOV R3,RO 

JSR PC. FILLMEM 
MOV R3,124SZ 
MOV Ra: TSDBCRS) 
JSR PC; WAITF 

MOV TSERCRS), Ri 
MOV @SSR,R2 
CMP R1,R2 

BEQ 753 

NC FATFLG 


I 
ERRHRD ERRNO, WRTERR ,PKTSSR 


75$: CKLOOP 


;WRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


+4 PATTERN IN Connect REGISTER 
FILL MEMORY WITH RECORD SI 
iSET UP RECORD SIZE IN PACKET 
OMMAND 


sISSUE C 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

3SET UP EXPECT 

3 THEY E 

i a 

sTSSR INCORRECT AFTER WRITE DATA 
CS$ERHRD 
411 
WRTERR 

WORD PKTSSR 


sLOOP IF SELECTED 


SEQ 0141 


Mii 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


1 036476 
6152 036504 


104406 
005723 
022703 
001346 


104406 


013701 


104406 
012703 
013737 


012737 
012704 


000414 


011136 
016456 


002212 


000400 
003116 


140001 
045130 
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045132 


045130 


TRAP 
TST (R3)+ ;BUMP RECORD SIZE 
CMP $268. ,R3 sEND OF RECORD YET 
BNE 65$ iBR IF MORE RECORDS TO WRITE 
80$: CKL ;LOOP IF SELECTED 
TRAP 
120$: 


ROSE SEES ESSE SEES SESE EE SESE SESE EEE EEESSEEEEEEEESESEE EEE SESE EEE 
; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FESS SESS SESS SS SESE SEES SES ESSE SESS ESSE SS EES SEES EEESE EE ESEEE 


JSR PC, 
JSR PC, CHKTSSR 
BCS 130$ 
MOV RO,R1 
FA 


INC TFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


130$: CKLOOP 


;CALL Mg | REWIND COMMAND 
;SEE HOW TSSR IS 
BR 4 NO PROBLEM 

VE TSSR 


3SA 

;BUMP COUNT 

} REWIND NOT ACCEPTED 
TRAP 
WORD 
.WORD 
WORD 

;LOOP IF SELECTED 
TRAP 


fF SEES EEE SEES EE EEEEEE ESE EEEEEEESESESEEEE SESE SESE SESS EEEEE 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
{FSS SSSSKSESSSSSEESES SSS SESS SS SSS SESS SSE SESS SEES SESSE SSS ESESES ESSE SE ESESESE 


MOV T2ABER-6, R1 
MOV 

BIS eet. R2 
CMP R2 

BEQ 


INC TFLG 
ERRHRD ERRNO » T24B0T , EXPREC 


140%: CKLOOP 


MOV $256. ,R3 
MOV FREE. T24RB 


sPICK UP _XSTO 

sSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

iB IF EQUAL (OK) 

i TAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
. WORD 
WORD 

sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FFSSSSSSSSESSSSSSSSESSSSSSESSESS SSS SSS SSSSSESSSSSSESSESS SSS SSESSESSESSSEEEESEE 


FREAD DATA,CVC#=1,ACK COMMAND 


3 
§SSSSSSSSSSS SSS SESS SS SSSSSSSSSSSSSSESS SSS SESS SSS SSS SS SESS SSS ESET ESSE 


MOV 9140001 , T24PK3 
165$: MOV OT24PK3 ,R4 


sREAD DATA,CVC=1,A 


COMMAND 
;SET UP R4 WITH packet ADDRESS 


C$CLP1l 


C$CLP1l 


SEQ 0142 


Nii 
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SEQ 0143 


6123 036510 010337 045136 MOV ,124$Z ;SET UP RECORD SIZE IN PACKET 

6124 036514 010465 000000 MOV R4,TSDBCRS) s1SSUE COMMAND 

6125 036 004737 016370 JSR PC; WAITF ;WAIT FOR SSR TO SET 

6126 036524 016501 000002 MOV TSSR(RS),RI :GET TSSR CONTENTS 

6127 036530 012702 000200 MOV SR,R2 ;SET UP EXPECTED 

6128 036534 020102 CMP sRe ;ARE THEY EQUAL 

6129 036536 001 BEQ 0$ ;BR, IF OK 

6130 036 005237 002212 INC FATFLG ;BUMP COUNT 

6134 036544 ERRHRD ERRNO,RDERR,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
036544 104456 TRAP C$ERHRD 
036 000636 : 414 
036550 005206 “WORD RDERR 
036552 012166 "WORD PKTSSR 

6135 036554 170$: | CKLOOP ;LOOP IF SELECTED 
036554 TRAP C$CLP1 

6136 036556 013702 003116 MOV FREE. R2 :GET BUFFER ADDRESS 

6137 036 0 MOV ;CURRENT RECORD SIZE 

6138 036 162704 000400 SUB Goée. R4 FIRST LOCATION IN BUFFER 

6139 036570 173%: ADD R2,R4° ;GET LOCATION IN BUFFER (ADDRESS) 

6140 036572 021403 CMP (R4),R3 sCHECK DATA READ (R3=DATA ALSO) 

6141 036574 001410 BEQ 180$ 3BR, IF ALL IS WELL 

142 036576 011401 MOV (R4),R1 ;RECD DATA 

6143 036600 010302 MOV R3,R ;EXPECTED DATA 

6144 036602 005237 002212 INC FATFLG ;BUMP COUNT 

6148 036606 ERRHRD ERRNO, T24DTA,EXPREC ;DATA READ NOT = WRITTEN 
036606 104456 TRAP CSERHRD 
036610 000637 .WORD 415 
036612 046050 :WORD T24DTA 
036614 015614 “WORD EXPREC 

6149 036616 180%: CKLOOP ;LOOP IF SELECTED 
036616 104406 TRAP CSCLP1 

6150 036620 005724 TST (R4)- ;BUMP TO NEXT LOCATION 

6151 036622 160204 SUB 2,R4 GET BACK TO CORRECT SIZE 

6152 036624 020403 CMP R4,R3 ;END RECORD YET 

6153 036626 001360 BNE 1733 ;8R, IF NOT AT END OF RECORD 

6154 036630 005723 TST (R3)- ;BUMP SIZE 

6155 036632 022703 000412 CMP 266. .R3 sEND RECORD YET 

156 036636 001322 BNE 165$ 38R, IF MORE RECORDS TO WRITE 

6157 036640 190%:  CKLOOP BOOP. IF SELECTED 
036640 104406 TRAP CSCLP1 

6158 Oseeee ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
036642 104 TRAP Csesus 
036644 525/27 002212 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 

6160 036652 10 BLO 999% :8R, IF LESS THAN 25 

6161 036654 004737 017322 JSR PC, CKDROP ;TRY TO DROP THE UNIT 

6162 036660 999%: 

616 

6164 3° 

6165 3 

6166 sTEST 4, SUBTEST 3 

6168 IVERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 

6169 }SWAP BYTES (SWB) BIT ser OPERATES PROPERLY. THE TEST 

6170 sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

6171 THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
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6173 3 
6174 
6175 ‘3 
6176 036660 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
036660 74.3: 
036660 104402 TRAP C$BSUB 
6177 036662 004737 047624 JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
6178 036666 004737 047470 JSR PC, T24REST ;SET COMMAND PACKET 
rapes 036672 004737 047562 JSR PC,T24RT2 ;SET UP OTHER COMMAND PACKET 
otas Iti tii iii titi ti ttitititittttitittittttit tt ttt titi ttt ttt ttt ttt ttt td 
3 
otas ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
rare ; SoeseosnneenneeenenpessseenenesneernNnEnenenEENNeorSNENSnCNTENeet 
6187 036676 004737 016114 JSR PC, SOF INIT ;D0 INITIALIZE ON CONTROLLER 
6188 036702 103407 BCS 20$ ;BR IF INIT WAS OK 
6189 036704 005237 002212 INC FATFLG ;BUMP COUNT 
6193 036710 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
61 036712 ERRDF ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS nor OK 
036712 104455 TRAP CSERDF 
036714 000640 .WORD 416 
036716 003652 . WORD SFIERR 
036720 012154 -WORD SFIMSG 
6195 036722 20$: 
6196 036722 013737 002172 045020 MOV UNITN, T24DSW ;SET ORIVE NUMBER IN PACKET 
eH 036730 012704 045000 MOV STO4PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
6199 Pitti i iii ttittttttttttitittttittt titi ttt ttt ttt ttt ttt tt tt ttt ttt tt tt 
6200 3 
eco ;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
seo  denbenbennebebedeneneetnenieNeeenNeNteneeenbeNeNNNRNNNENee 
6205 036734 004737 010752 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
6206 036740 103407 BCS 24$ aor IF COMMAND ISSUED OK 
6207 036742 005237 002212 INC FATFLG OUNT 
6211 036746 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
6212 036750 ERRHRD ERRNO,WRTMSG,SFIMSG i WRITE CHARACTERISTISC FATLED 
036750 104456 CS$ERHRD 
036752 000641 "NORD 417 
036754 005056 .WORD WRTMSG 
036756 012154 -WORD SFIMSG 
6213 036760 24$: CKLOOP ;LOOP IF SELECTED 
ay 036760 104406 TRAP C$CLP1 
6215 Pitti it ii titi itiitititiititiititittttitittttttti ttt ttt ttt ttt tt ttt 
1 ; 
iH ;I1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
6219 S PspeibinnnbEeetneNnNnEEseNbonNsneENeNeanenneNNNNReoneNNete 
6221 036762 004737 011136 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
6222 036766 103407 BCS 30$ 3B i ROBLEM 
6223 036770 010001 MOV RO,R1 SAVE T 
6224 036772 005237 002212 INC FATFLG ; BUMP COUNT 


SE@ 0144 
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SEQ 0145 


6228 036776 ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
036776 104456 TRAP C$ERHRD 
037000 000642 .WORD 418 
037002 046266 "WORD T24RWN 
037004 012166 WORD PKTSSR 

6229 037006 30$: CKLOOP ;LOOP IF SELECTED 

sons 037006 104406 TRAP = C$CLP1 

rr tt} FEES SESE SEEKS EEE EEE EEE EEE EEE EEE EE EEE EEE EEE EES EEE EEESEESEEE EES 

- 
th ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
H 

tty FEES EEE EEE EEE EEE EEE EE EEE ERE EEE EERE TERE ESE EEE EEEEEEEEEEERREE 

6237 037010 013701 045030 MOV T24BFR+6,R1 ;PICK UP XSTO 

6238 037014 010102 MOV R1,R2 ;SET UP EXPECTED 

6239 037016 052702 000002 BIS #B1T1,R2 ;SET BOT BIT IN EXPECTED 

6240 037022 020102 CMP R1,R2 ;DOES EXP = REC'D 

6241 037024 14 BEQ 40$ :BR, IF EQUAL (OK) 

6242 037026 005237 002212 INC FATFLG ;BUMP COUNT 

6246 037032 ERRHRD ERRNO, T24B0T,EXPREC TAPE NOT AT BOT AFTER REWIND 
037032 104456 C$ERHRD 
037034 00064 THORD 419 
037036 046003 "WORD T24B0T 
037040 015614 "WORD EXPREC 

6247 037042 40$: CKLOOP ;LOOP IF SELECTED 
037042 104406 TRAP = C$CLP1 

6248 037044 012703 000400 MOV $256. ,R3 ;RECORD SIZE 

6249 037050 013737 003116 045132 MOV FREE, T24RB ;STARTING WRITE BUFFER ADDRESS 

rei} FESS SESS SSE ESSE EEE EEE EE EEE EE EEE EEESESESEEEESESERESEERERES 

H 
6255 ;WRITE DATA,ACK,SWB,CVC=1 COMMAND 
5 

Stee FESS SESS SSS SSS SES SESS SESE SESE SEE EEE EE EEEEEESSEE EEE EES 

6257 037056 012737 150005 045130 MOV 9150005, T24PK3 ;WRITE DATA,ACK,SWB,CVC=1 COMMAND 

6258 037 012704 045130 MOV OT24PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 

6259 037070 65$: 

037070 010300 MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 

6261 037072 737 017542 JSR PC, FILLMEM ;FILL MEMORY WITH RECORD SIZE 
037076 010337 045136 MOV R3, 12452 ;SET UP RECORD SIZE IN PACKET 

6263 037102 010465 000000 MOV Ra. TSDBCRS) ;1SSUE COMMAND 

6264 037106 004737 016370 JSR AITF ;WAIT FOR SSR TO SET 

6265 037112 016501 000002 MOV TESACHS) RI ;GET TSSR CONTENTS 
037116 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

6267 037122 020102 CMP R1,R2 ;ARE THEY EQUAL 

6268 037124 001 BEQ 753 ;BR, IF OK 

6269 037126 005237 002212 INC FATFLG ; 

6273 037132 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
037132 104456 TRAP  C$ERHRD 
037134 .WORD 420 
037136 005113 “WORD WRTERR 
037140 012166 “WORD  PKTSSR 

6274 037142 75$: CKLOOP ;LOOP IF SELECTED 
037142 TRAP = C$CLPL 

6275 037144 005723 TST (R3)+ ;BUMP RECORD SIZE 


Die 
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6276 
6277 
6278 


037270 
037274 


022703 
001346 


104406 


005237 
104456 
000645 


046266 
015614 


104406 


013701 
010102 


046003 
015614 


104406 
012703 
013737 


012737 


000414 


011136 


002212 


045030 
000002 


002212 


000400 
003116 


000000 
016370 
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045132 


045130 


CMP $268. ,R3 sEND OF RECORD YET 
BNE 65% BR, IF MORE RECORDS TO WRITE 
80$: CKLOOP sLOOP IF SELECTED 


TRAP 
120: 


FFE EEE EEE EEE EE SEEKS EEE EEE EEE SEE EEE EEE ESE EEE EEE ESE EE EEE ES 


; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


FEES SSE SEES EEE SEES EES EE EET EEE ESE EES EEE EEE ESE EEE EEE EEEEEE EEE EES 


JSR PC ,REWIND +g TAPE po oy COMMAND 

BCS 130$ R, If NO P ROBLEM 

MOV RO,R1 SAVE T 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24RWN,EXPREC REWIND NOT ACCEPTED TRAP 
. WORD 
“WORD 
"WORD 

130$: | CKLOOP ;LOOP IF SELECTED 

TRAP 


{FOE EEE EEE EEE EEE E SESE EE EERE EES EE SEE ERESS HSER EEE SESE EEE EEE 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
FEES SAE SSS ESSE SESS SSS SEES SESE EEE SESE SESE SEES SESE EEE EEEE 


MOV T24BFR-6,R1 ;PICK UP XxSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS #B1T1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 ;DOES EXP = REC'D 

BEQ 146$ ;BR, IF EQUAL COK) 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24B0T,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
THORD 
“WORD 
. WORD 

140$: CKLOOP ;LOOP IF SELECTED 

TRAP 

MOV 


9256. ,R3 
MOV FREE, T24RB 
FESS ESSE SESE SSE ESSE ESSE EEE SESSES SSE ESSE SESS EEE SEESE ESET EEE 


; 

sREAD DATA,IE,ACK,SWB COMMAND 

; 

SPECS E ETERS SEES ESSE S ESET EE EESESES SEER SSE E SESE ERTS SEES EES 


MOV #110001, pata sREAD DATA, IE,ACK,SWB COMMAND 
165$: MOV OT24PK3,R ;SET UP R4 WITH PACKET ADDRESS 

MOV R3,T24S a sSET UP RECORD SIZE IN PACKET 

MOV R4,TSDBCRS) s ISSUE COMMAND 

JSR PC, ,WAITF sWAIT FOR SSR TO SET 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS . 


C$CLP1 


C$ERHRD 
421 


T24RWN 
EXPREC 


C$CLPl 


C$CLP1 


SEQ 0146 
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BASIC 


READ DATA CFORWARD AND REVERSE) 
000002 
000200 
002212 
170$: 


003116 
000400 


173$: 


002212 


180$: 


000412 


002212 
017322 


000017 


999%: 


3° 


TSSRCRS),R1 
#@SSR ,R2 
R1,R2 

1705 


FATFLG 
ERRNO, RDERR ,PKTSSR 


FATFLG,#@15. 
999% 
PC, CKDROP 


; 
sTEST 4, SUBTEST 4 


: VERIFIES THAT A READ FORWARD COMMAND READING A 
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SEQ 0147 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;6R, IF ae 
;BUMP C 
;TSSR ERCORRECT AFTER REN on 
C$ERHRD 
TMORD 423 
.WORD RDERR 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP C$CLP1l 


sGET BUFFER ADDRESS 


ER 
sGET LOCATION IN BUFFER (ADDRESS) 
sCHECK DATA READ (R3=DATA ALSO) 
eee IF wt IS WELL 
RECD DAT 
EXPECTED. DATA 


sBUMP COUNT 
;DATA READ NOT = WRITTEN — 


C$ERHRD 
-WORD 424 
«WORD T24DTA 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP C$CLP1 
;BUMP TO NEXT LOCATION 
sSET SIZE TO CORRECT VALUE 
sEND OF RECORD YET 
;BR, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 
sEND RECORD YET 
sBR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP C$CLP1 


3>>>>>>>>>>>> END parest >>>>>>>>>>>> 
L1 3 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


RECORD 


sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
iSTATUS ALERT 1 TERMINATION WITH THE RECORD LENGTH LONG 
; 
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6378 


0036 

012154 
013737 
012704 


047624 
047470 
047562 


016114 
002212 


002172 
045000 


010752 
002212 


011136 


002212 
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045020 





BGNSUB p> >>>>>>>>>>> sa? We ae >>>>>>>>>>>> 
TRAP C$BSUB 

JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 

JSR PC, T24REST 3SET COMMAND PACKET 

JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 


5 EEE EEE EEE EEE EE EEE EEE EEE EEE EEE eee eee eee eee 
; 
sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


: 
SEEKERS KSEE SESS ESSE ESE SESE SESS EEE ESSE SESE EEE SEE ESSE 


JSR PC, SOFINIT ;D0 INITIALIZE ON CONTROLLER 
BCS 203 ;BR IF INIT WAS OK 
INC FATFLG :B T 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP  C$ERDF 
WORD 425 
"WORD  SFIERR 
ae WORD SFIMSG 
MOV UNITN, T24DSW ;SET DRIVE NUMBER IN PACKET 
MOV $T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


SEES EEE EE EEE TEESE ESSE SESE SESE E ESSE E EEE EEE EEE EEE EEE EE EE EEE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


a 
FESS SES SSS ESSE ESSE SSS SESS ESSE SESS SSES SESS SESE SEES ESSE EEEE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 24s ;BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FATED 

C$ERHRD 
TWORD 426 
«WORD WRTMSG 
WORD SFIMSG 
243: CKLOOP sLOOP IF SELECTED 


TRAP C$CLP1 
{REESE EEE ESSER ESE EE SEES EEE EEE ESSERE EEE eee ERE EEE 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
FFSSSSSSSES SS SSS SSS SESS SESS SSS SS SSS SEES SSSR SE SSS SESS SSE ESES 


JSR PC REWIND ;CALL TAPE REWIND COMMAND 
BCS 303 :6R, IF NO PROBLEM 

MOV RO,R1 ;SAVE TSSR 

INC FATFLG ;BUMP COUNT 

RRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 


TRAP C$ERHRD 
«WORD 427 


SEQ 0148 
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BASIC 


037712 


046266 
012166 


104406 


013701 
010102 
052702 


104406 
012703 
013737 


012737 
012704 


010337 


045030 
000002 


002212 


001000 
003116 


140005 
045130 


045136 
000000 
016370 
000002 
000200 


002212 
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045132 


045130 


SEQ 0149 
"HORD — PRTSSR 
TRAP CS$CLPl 
FREESE KEES ESSE SESE SEES EEE ESSERE ERE SESE SESE EES EK ES EE EE EEE EEE EEES 
i READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
| SeeorecccereororsescesoonSeesCseSeESSSRSSEseseSeESSSSESESSSSSSeCS 


MOV a plat R1 ;PICK UP XSTO 


30$: CKLOOP ;LOOP IF SELECTED 


MOV R1,R2 ;SET UP EXPECTED 
BIS eeini. R2 SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ BR. IF EQUAL (OK) 
INC FATFLG 
ERRHRD ERRNO, T24B0T, EXPREC TAPE NOT AT BOT AFTER REWINO 
C$ERHRD 
THORO 428 
"WORD T24B0T 
"WORD €EXPREC 
40$: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLP1 
MOV #512. ,R3 ;RECORD SIZE 
MOV FREE, T24RB ;STARTING WRITE BUFFER ADDRESS 


{EEE EEE ERE EE TEESE SEES SEES EEE ESE SESE EEE EEEEE EEE EE EEE EEE EE EEE EEE 
; 
sWRITE DATA,ACK,CVC=1 COMMAND 


i 
FEES SESS SEES SESE SEES SEES ESSERE EEE SESE ES ESESESESE EEE EEES 


MOV #140005, tala sWRITE DATA,ACK,CVC=1 COMMAND 
658 MOV OT24PK3,R4 3SET UP R4& WITH PACKET ADDRESS 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sGET TSSR CONTENTS 
MOV #SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY 
BEQ 75$ sBR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP C$ERHRD 
. 429 
«WORD WRTERR 
WORD PKTSSR 
75$: CKLOOP sLOOP IF SELECTED 
120% TRAP C$CLP1 


FESSSSSSSSSSS ESSE ESSE ESSE SSE SSE SESE SESS ERE SEES ESSE ESSE SEES ESSE ESES 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 


Hi2 
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2 
037712 


004737 
103407 


010001 
005237 
104456 

S6 


013701 


104406 
012703 
013737 


012737 


011136 


002212 


045030 
000002 


002212 


000400 
003116 
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045132 


045130 


SEQ 0150 


PEEKS EEE EEE EEE EEE EEE SESE EEE EEE KEES EEE ESE REESE EE EEEESE SESE EE 


130$: 


JSR PC ,REWIND 

BCS 130$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 


CKLOOP 


;CALL_ TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;SAVE TSSR 


;BUMP COUNT 

;REWIND NOT ACCEPTED 
TRAP C$ERHRD 
. 430 
«WORD T24RWN 
WORD PKTSSR 


;LOOP IF SELECTED ‘ 
TRAP = C$CLP1 


fEEEEEEEEEREEEEE EEE EE EEE SEER REESE EEE EEE EE ES EEE ESSERE EEE EEE EEE 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
FEES SEES SESE SSE KEE ESE ESSE EKER SESE EERE CES ESESE 


140$: 


MOV T24BFR+6,R1 
MOV R1,R2 

BIS #BIT1,R2 
CMP »R2 

BEQ 140$ 

INC 


FATFLG 
ERRHRD ERRNO, T24B0T ,EXPREC 


CKLOOP 


MOV #256. ,R3 
MOV FREE, T24RB 


s;PICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
*;DOES EXP = REC'D 
;BR, IF EQUAL (OK) 
BUMP C 


;TAPE NOT AT BOT AFTER REWIND 
TRAP 


C$ERHRD 
.WORD 431 
te, “WORD © T24B0T 
[WORD  EXPREC 


;LOOP IF SELECTED 


TRAP Cs$CLPl 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


{EERE EEEE EERE SEES EEEEE SESE ESSE SESE S REESE SEES SEES ESSE SESE SESE EES 
; 
sREAD DATA,ACK,CVC=1 COMMAND 


: 
FESS SEES SSS SESS SSS SESE SESE SESE EEE ESE SESS SESS ESSE SESE SES ESSE 


165$: 


MOV #140001 , T24PK3 
MOV #T24PK3,R4 

MOV R3,T24S 

MOV R4, TSOBCRS) 
JSR PC,WA 


MOV TSSR(RS),R1 
MOV @SSR!SC!B1T2,R2 
R1,R2 


FATFLG 
ERRHRD ERRNO, T24TRL ,PKTSSR 


sREAD DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
sSET UP a SIZE IN PACKET 


I COMMAND 
sWAIT FOR SSR_TO SET 


;GET TSSR CONTENTS 

sSET UP EXPECTED 

;ARE THEY E 

;BR, OK 

;BUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 432 
-WORD T24TRL 
-WORD PKTSSR 





TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


6533 


040064 
040064 


104406 


013701 


045030 
010000 


002212 


002212 
017322 


047624 
047470 
047562 
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000017 


SEQ 0151 


170%: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLP1 
SEERA EEE EEE SEES E EERE E EEE SEES EEE EEE EEE EEE EEE EEE EE EEE Ee 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
FESS SSeS SSS ESS SSE SEES SESE SESE SESE SESE ESSE SEES ES ESE EE EE EEE EE EEEE 


MOV T24BFR+6,R1 ;GET MESSAGE BUFFER 
MOV R1,R2 ;SET UP EXPECTED 
BIS #BIT12,R2 ;SET THE RLL BIT IN EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 180$ ;BR, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24L0N,EXPREC i THE RLL BIT WAS NOT SET IN XSTO 
TRAP CS$ERHRD 
433 
. WORD T24L0N 
. WORD EXPREC 
180$: 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 
TRAP CSESUB 
CMP FATFLG, #15. s1S ERROR COUNT AT 25 
BLO 999$ :BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
999$: 
3° 
3 
onal 4, SUBTEST 5S 
i VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
;SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
:STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
3(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
CRBPCR) IN THE MESSAGE BUFFER CONTAINS 
PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
;LENGTH). 
. 
3 
3 
ge 
BGNSUB y>>>>>>>>>>>> OEGIN SUBTEST >>>>>>>>>>>> 
4.5: 
TRAP C$BSUB 
JSR PC, T24RT3 3SET UP OTHER COMMAND PACKET 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 


FFSSSSSSSSSSSESSES SSS SSS SSS SS SSS SS SSSSESS SESE SSESSE SESS SSE SESS SSS ESSE ESSE 


} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; 


Jle 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: 


34 
6635 


BASIC 
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READ DATA (FORWARD AND REVERSE) 


004737 
103407 
005237 
010001 
104455 
000662 
003652 
012154 
013737 
012704 


046266 
012166 


104406 
012703 
013737 


016114 
002212 


002172 045020 
045000 
010752 


002212 


011136 


002212 


000400 
003116 045132 


FEES KES S ESE EESSEEEEEEEEEESEEEEEEEEEEESEEES SEES EEE EEE E ES 


JSR PC " peathatee ;00 INITIALI ae A oa 


BCS 20 sBR IF INIT 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 }CONTENTS OF TSSR REGISTER 
ERRDF  ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS a A 
. WORD 
. WORD 
203 . WORD 
; MOV UNITN, T24DSW sSET DRIVE NUMBER IN PACKET 


MOV @T24PACKET ,R4 
SPREE EEE EEE EEE EEE ESSE EERE EESEEEEEEREESSEESESE SESE S EEE E EEE EE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FESS SESS SSS SSS SSE SEES SES SESE ASSESSES SESSA EKA SESS SESE ESSERE EES SESE 


JSR PC,WRTCHR s ISSUE WRITE gery MY. ae ag 

BCS 24$ ;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ; SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC rons 
TWoRO 
. WORD 
. WORD 

24$; CKLOOP ;LOOP IF SELECTED 

TRAP 


FFE SSS SESE SESS SSSSSSES SEES SESS ESSERE EES EEE 
FISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
FFFSSSS SSS SESS SESS SSS SSS SSS SSS SESS SSS SESS SESS ESSE SSS SESE SES SESE SEE SE 


JSR PC ,REWIND sCALL_TAPE REWIND COMMAND 

BCS 30$ BR, IF NO PROBLEM 

MOV RO,R1 ISA VE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR ; REWIND NOT ACCEPTED _— 
- WORD 
- WORD 
. WORD 

30$: CKLOOP sLOOP IF SELECTED enep 
MOV $256. ,R3 sREC 


ORD SIZE 
MOV FREE , T24R8 sSTARTING WRITE BUFFER ADDRESS 
PSS E ESSE ESSE SEES ESESESESESESSSEEES ESSE ESSE TES ESSE SESES ESTE 


;}WRITE DATA,ACK,CVC=1 COMMAND 
3 





C$ERDF 
434 


SFIERR 
SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


C$CLP1 


C$ERHRD 
436 
T24RWN 
PKTSSR 


C$CLPl 


SEQ 0152 


Kile 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


012737 
012704 


010337 
0465 


046266 
012166 


104406 
012703 
013737 


012737 


140005 
045130 
045136 
000000 
016370 
000002 
000200 


002212 


011136 


002212 


001000 
003116 
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045130 


045132 


045130 


SPSS ESSE SESE ESSE SSS SSE SEES SEES EEE SEES SEES SESS SESE SESS SESE SEES ES 


MOV #140005, T24PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
i MOV $T24PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,724SZ ;SET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS) ;I1SSUE COMMAND 
JSR PC WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS), RI ;GET TSSR CONTENTS 
MOV @SSR,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75$ :BR, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
437 
"WORD WRTERR 
"WORD PKTSSR 
75$: CKLOOP ;LOOP IF SELECTED 
see TRAP = C$CLP1 


sR EERE ESSE EEE ESET ES EEE SESE SEESEEEEEES SEES ERE TEREST EERE SESE ES 
; 
sISSUVE REWIND COMMAND TO SELECTED TAPE DRIVE 


7 
FFSSSSSSS SESS SS SESS SS SSS SSS SSS SSES ESSE SESS SEEKS ESSE SESS SESE ES EEE 


JSR PC, REWIND ;CALL_ TAPE REWIND COMMAND 
BCS 130$ BR, F NO PROBLEM 
MOV RO,R1 ;SAVE T 
INC FATFLG UMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR REWIND NOT ACCEPTED 
TRAP § CSERHRD 
.WORD 438 
"wORD T24RWN 
"WORD PKTSSR 
130$:  CKLOOP ;LOOP IF SELECTED 


TRAP C$CLP1 
MOV 9512. ,R3 ;RECORD SIZE 
MOV FREE, T24RB ;STARTING READ BUFFER ADDRESS 

FSS SSSS SSS SSS SESS SESS SHS SSS SSS SESS SSES SESS SESS SESS SSS SESS SES ESSEC ESEES 

READ DATA,ACK,CVC=1 COMMAND 

s eococcccoococoocoseocoocossssessosoosesoocoosesoocoooooeoseoseoess 


MOV #140001 , T24PK3 sREAD DATA,ACK,CVC=1 COMMAND 


165$: MOV OT24PK3 RO ;SET UP R4 WITH PACKET ADDRESS 
MOV R3, 72452 ;SET UP RECORD SIZE IN PACKET 
MOV R4;TSOBCRS) ;ISSUE COMMAND 
JSR WAITF WATT FOR SSR TO SET 
MOV TSSR(RS),RI :GET TSSR CONTENTS 
MOV BssR:sCi BIT2,R2 ;SET UP EXPECTED 


BEQ heh ;BR, IF OK 


SEQ 0153 





Lie 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


6689 
6693 


005237 


013701 
.¢) 


002212 


045030 
040000 


002212 


045026 
000400 


002212 


002212 
017322 
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INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24TRL ,EXPREC ;TSSR INCORRECT AFTER —_—S 
. WORD 
. WORD 
. WORD 
170$: CKLOOP ;LOOP IF SELECTED 
TRAP 


PEFR EE TEES EEE EEE EEEE ESSE EE EEEEEEEESSEES EEE EEEE SESE EEE E SESE EEE 
; 

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

; 

pF EEE EEE EEE EEE SEES EEE EE ESSE EE EEE EEEEEEEEEEEEEEE SEER EERE SES EEEE 


MOV T24BFR+6,R1 ;GET MESSAGE BUFFER 


C$ERHRD 
439 
T24TRL 
EXPREC 


C$CLP1 


MOV R1,R2 ;SET UP EXPECTED 
BIS #B1T14,R2 ;SET THE RLS BIT IN EXPECTED 
CMP R1,R2 s;ARE THEY E 
BEQ 1808 ;BR, IF ee CALL IS WELL) 
INC TFLG ;BUMP C 
ERRHRD ERRNO T24L.0P ,EXPREC + THE RLL BIT WAS NOT eal IN XSTO 
RAP CS$ERHRD 
"WORD 440 
“WORD T24LOP 
s808 «WORD EXPREC 
MOV T24BFR-4,R1 sPICK UP RESIDUAL BYTE COUNTER 
MOV 9256. ,R2 ;THIS SHOULD BE THE DIFFERENCE 
CMP R1,R2 31S THE DIFFERENCE CORRECT 
BEQ 190$ ;BR, IF CORRECT 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24PBP ,EXPREC ;RBPCR NOT CORRECT 
TRAP C$ERHRD 
«WORD 441 
-WORD T24PBP 
-WORD EXPREC 
190$: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10057: 
TRAP CSESUB 
000017 CMP FATFLG,#15. sIS ERROR COUNT AT 25 
BLO 999$ iBRe IF LESS THAN 25 
eens JSR PC ,CKDROP i TRY TO DROP THE UNIT 


3° 
3 
sTEST 4, SUBTEST 6 


; 

sVERIFIES THAT READ REVERSE ene WITH SWB=0 

sOPERATES PROPERLY. THE TAPE IS FIRST oe AND THEN 
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

sLENGTH AND gt 5 yf THE TAPE IS THEN READ IN REVERSE 
;SEQUENTIALLY AND _THE RESULTS 

sCSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 


SEQ 0154 


Mle 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


013737 
012704 


047624 
047470 
047562 


016114 
002212 


002172 
045000 


010752 
002212 
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045020 


sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE 
tll RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 
; . 


BGNSUB 3 >>>>>>>>>>>> = Son >>>>>>>>>>>> 
"TRAP = C$BSUB 
JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 
Meritt ttii titi tii titii titi itittitittitittitiitiiiitiitiiii iti ri iii. 
}ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
p SeSseeoonsonoesesososecesosooreosereeooesessesossoooseooeeoeees 
JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
.WORD 442 
-WORL SFIERR 
-WORD SFIMSG 


20$: 
MOV UNITN, T24DSW 
MOV OT24PACKET ,R4 
FSFE SSE SESS SESS SESS SSS SSE SEES SESS SEES SESE SESS SES ES ESEEE EEE 
H 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
FFSSSSSSSSSESSE SSS SSE SSE SES SSE SSS SSS SSS SES ER SST OSESSSSESES ESS ESE SES ES 


sSET DRIVE NUMBER IN PACKET 


JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 243 :8R, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
. WORD 
“WORD 
WORD 
24$: CKLOOP ;LOOP IF SELECTED 
TRAP 


Pit tiT titi tii titi it iti it iti iti tii titi iri ir iti ir irri ri rrr rr irr rir rrr 
TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FSSSSSSSSSSS SSS SSS SESS SSS SSS SESS SS SSSSS SE SSS SSS SSES SESS SS SSE SESE SE 


sSUBROUTINE NEEDS PACKET ADDRESS 


CSERHRD 
443 


WRTMSG 
SFIMSG 


C$CLP1 


SEQ 0155 


Nie 
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SEQ 0156 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
6791 040704 004737 011136 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
6792 040710 103407 BCS 30% BR, IF NO PROBLEM 
6793 040712 010001 MOV RO,R1 SAVE TSSR 
6794 040714 005237 002212 INC FATFLG ;BUMP COUNT 
6798 040720 ERRHRD ERRNO, T24RWN,PKTSSR REWIND NOT ACCEPTED 
040720 104456 TRAP = C$ERHRD 
040722 000674 .WORD 444 
040724 "WORD T24RWN 
040726 012166 WORD PKTSSR 
6799 040730 30$: CKLOOP ;LOOP IF SELECTED 
040730 104406 TRAP = C$CLP1 
040732 012703 000400 MOV $256. ,R3 ;RECORD SIZE 
6801 040736 013737 003116 045132 MOV FREE , T24RB ;STARTING WRITE BUFFER ADDRESS 
res FFSSSSESSSSSSS SSE SESS SSS SESS SESE SESS SESSESESSES ESSE SESS ESSE SEES EES EES 
3 
6805 ;WRITE DATA, ACK,CVC=1 COMMAND 
6806 a 
6807 §FSSSSSESS SSS SES SESS SSES SSS SESE SSS SSS SESS SES ESSE SESS SE SESES SEES SES ESSESESSESESSE 
$508 040744 012737 140005 045130 MOV #140005, T24PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
6610 040752 012704 045130 se MOV OT24PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
6812 040 010300 MOV RO SET PATTERN IN CORRECT REGISTER 
6813 040760 737 017542 JSR PC; FILLMEM ;FILL MEMORY WITH RECORD SIZE 
6814 040764 010337 045136 MOV 3°124Sz 3SET UP RECORD SIZE IN PACKET 
6815 040770 010465 MOV R4, TSDOBCRS) ;ISSUE COMMAND 
6816 040774 004737 016370 JSR PC; WAITF ;WAIT FOR SSR TO SET 
6817 041000 016501 000002 MOV TSSR(RS).RI :GET TSSR CONTENTS 
6818 041 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
6819 041010 020102 CMP 1,R2 ;ARE THEY EQUAL 
041012 001406 BEQ 53 :BR, 
6821 041014 005237 002212 INC FATFLG ;BUMP COUNT 
041020 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
041020 104456 TRAP C$ERHRD 
041022 0006 . WORD 5 
041024 00511 "WORD WRTERR 
041026 012166 "WORD PKTSSR 
6826 041030 75$: CKLOOP ;LOOP IF SELECTED 
041030 1 TRAP C$CLP1 
6827 041032 005723 TST (R3)- ;BUMP RECORD SIZE 
6828 041034 022703 000414 CMP $268. ,R3 sEND OF RECORD YET 
041040 001 BNE 65$ :BR, IF MORE RECORDS TO WRITE 
6830 041042 80$: CKLOOP ;LOOP IF SELECTED 
041042 TRAP CS$CLP1 
6831 041044 005743 TST -(R3) ;SET BACK TO 512. 
683 041046 013737 003116 045132 MOV FREE, T24RB sSTARTING READ BUFFER ADDRESS 
ooss FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSESS SESS 
v 
6836 ;READ REVERSE DATA,ACK COMMAND 
: 
rrt+4 FFSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSSSSSSSSSSSESSSSESS SSS SSS SSSESSS SSS 
041054 012737 100401 045130 MOV #100401, T24PK3 sREAD REVERSE DATA COMMAND . 
6841 041062 012704 045130 165$: MOV OT24PK3,R ;SET UP R4 WITH PACKET. RODRE 
6842 041066 010337 045136 MOV HN Toast ;SET UP RECORD SIZE IN PACKET 


Bis 


TSV7 - HARDWARE TESTS 1-8 


TEST 4; 


BASIC 


READ DATA (FORWARD AND REVERSE) 


010465 
004737 


000000 
016370 
000002 
000200 


002212 


003116 
000400 


002212 


000400 


002212 
017322 
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000017 


170$: 


173$: 


180$: 


190$; 


999$: 


3° 


R4, wer 
PC, WAI 


JSR 
MOV TSSRCRS0, R1 
MOV @SSR,R2 
CMP R1,R2 

BEQ 170$ 

INC FATFLG 
ERRHRD ERRNO, T24WDC,PKTSSR 
CKLOOP 

MOV FREE ,R2 
MOV 3,R4 

SUB $256. ,R4 
ADD 2,R4 

CMP (R4),R3 
BEQ 803 

MOV (R4),R1 

MOV R2 

INC TFL 
ERRHRD ERRNO, T24DTA,EXPREC 
CKLOOP 

TST (R4)+ 

SUB R2,R4 

CMP R4°R3 

BNE 173$ 

TST -(R3) 

CMP $256. ,R3 
BNE 165$ 

CKLOOP 

ENDSUB 

CMP FATELG, #15. 
BLO 99$ 

JSR pe CKDROP 


; 
sTEST 4, SUBTEST 7 


: 

sVERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND HE 
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 

E IS IDENTICAL TO THAT USED IN SUBTEST 2. 

sTHE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 


s SEQUENC 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
iSET UP _ EXPECTED 


;ARE THEY EQUAL 

+t OK 

3 

:TSSR INCORRECT AFTER READ DATA 
TRAP CS$ERHRD 
.WORD 446 
"WORD T24WOC 
"WORD PKTSSR 

;LOOP IF SELECTED 
TRAP = C$CLP1 

;GET BUFFER ADDRESS 

;CURRENT RECORD SIZE 

;FIRST LOCATION IN BUFFER 

;SET POINTER TO FRAME (WORD) 

;CHECK DATA READ (R3=DATA ALSO) 

;BR, IF ALL IS WELL 

;RECD DATA 

sEXPECTED DATA 

;BUMP COUNT 

}DATA READ NOT = WRITTEN 
TRAP §C$ERHRD 
.WORD 447 
"WORD T24DTA 
“WORD EXPREC 

;LOOP IF SELECTED 
TRAP C$CLP1 


sBUMP_ TO NEXT LOCATION 

;GET RID OF BASE ADDRESS 

OF RECORD YET 

BR, IF NOT AT - OF RECORD 


YET 
MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP C$CLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10060: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


SEQ 0157 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


013737 
012704 


005237 


047624 
047470 
047562 


016114 
002212 


002172 
045000 
010752 


002212 


011136 


002212 
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045020 


BGNSUB p> >>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
4.7: 


TRAP C$BSUB 
JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
JSR PC, T24REST 3SET COMMAND PACKET 
JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 
5 EEE EEE ERE EEE EEE EEE EEE EEE EEE E ESSE EEE EEE EE EEE EES ES 


3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FESS SESE EEE EEE EEE EEE SESE EEE ESE EEE EEE SEES SESE EEE EEE EERE EEE ESE 


JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 
BCS 203 ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 }CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP = C$ERDF 
.WORD 448 
"WORD  SFIERR 
nes "WORD SFIMSG 
MOV UNITN, T24DSW ;SET DRIVE NUMBER IN PACKET 
MOV @T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


{REE EERE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE EE EEE EE ESSE EEE EERE E EERE EES 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


o 
FEES KSEE SEEKS SSE SEES KEES ESSE ESE SEES EEE SESE EERE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 243 ;BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC a 

C$ERHRD 
TWORO 449 
-WORD WRTMSG 
-WORD  SFIMSG 
24$: CKLOOP sLOOP IF SELECTED 


TRAP C$CLPl 
{PERE EEEE ESSE EEE E SESE EE EEEESSEEEEEEES ESSE SEES TESS SESE ESSE EEE EE 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
POT TTT TTT TTT TTT ET TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TT TTT TTT 


JSR PC,REWIND sCALL_ TAPE a ag nS 
one 30$ rBR. IF NO PROBLE 


RO,R1 SAVE TSSR 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR REWIND NOT ACCEPTED 


SEQ 0158 


TSV7 - HARDWARE TESTS 1-8 


TEST 4; 


BASIC 


104456 
000702 
046266 
012166 


104406 
012703 
013737 


012737 
012704 


104406 
005743 
013737 


012737 


020102 


000400 
003116 


150005 
045130 


017542 
045136 
000000 
016370 
000002 
000200 


002212 


000414 


003116 
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045132 


045130 


045132 


045130 


30$: CKLOOP 
MOV #256. ,R3 
MOV FREE, T24RB 


SEQ 0159 
TRAP C$ERHRD 
-WORD 450 
-WORD T24RWN 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP C$CLP1 


sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 


FEES EEE SEES EEE EEE SESE EE EE 


}WRITE DATA,ACK,CVC=1,SWB COMMAND 


‘ 
FEES SEEKS EEE SEE SESE SESE SEES EE EEE SEES KEES EE ERE SEE ESE ESE EESEESE EES EEES 


MOV #150005 , T24PK3 
MOV $T24PK3,R4 
65$: 
MOV R3,RO 
JSR PC,FILLMEM 
MOV R3,724SZ 
MOV R4, Ma Seiad 
JSR PC,WA 
MOV TSERCRS), R1 
MOV #SSR,R2 
CMP oi: R2 
BEQ 
INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
75$: CKLOOP 
TST (R3)-< 
CMP $268. ,R3 
BNE 65$ 
80$: CKLOOP 
TST -(R3) 
MOV FREE, T24RB 


s;WRITE DATA,ACK,CVC=1,SWB COMMAND 
;SET UP R4& WITH PACKET ADDRESS 


;SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 

s; ISSUE COMMAND 

sWAIT FOR SSR TO SET 


;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
3B OUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP C$ERHRD 
-WORD 451 
.WORD WRTERR 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CS$CLP1l 
;BUMP RECORD SIZE 
;END OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
C$CLP1 


TRAP 
sSET RECORD SIZE BACK TO 512. 
sSTARTING READ BUFFER ADDRESS 


FFE SESS ESSE SES SESS SSE ESSE ESSE SEES SESE SESE ESSE SEES TEESE 


READ REVERSE DATA,ACK,SWB COMMAND 


3 
FFSSSSSSSSSSSSSS SS SSS SSS SSS SS SS SS SSS SSS SESS SS SSS SSS SES SESSESSE SESE SESE 


MOV #110401, T24PK3 
165$: MOV OT24PK3.R4 
MOV R3,1245Z 
IV R4, TSOBCRS) 
JSR PC‘ WAITF 
MOV TSERCRS) R1 
MOV 


;READ REVERSE DATA,ACK,SWB COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKE? 
;I1SSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


E13 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


041672 
041672 
041672 
041674 


002212 


003116 
000400 


002212 


000400 


002212 
017322 


104402 
004737 047624 
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000017 


BEQ 
INC 
ERRHRD 


170$: 


173$: 


180$: 


190$: 


999$: 
i? 


170$ 
FATFLG 
ERRNO, T24WDC , EXPREC 


oe 
$256. .R4 
R2,R4 
(R4),R3 
180$ 
(R4),R1 
R3,R2 


FATFLG 
ERRNO, T24DTA, EXPREC 


con LG,#15. 
PC, CKDROP 


; 
sTEST 4, SUBTEST 8 


;VERIFIES THAT 
;LONGER THAN 


;BR, IF OK 

;BUMP COUNT 

sT1SSR INCORRECT AFTER READ DATA 
TRAP C$ERHRD 
«WORD 452 
«WORD T24WDC 
«WORD EXPREC 

sLOOP IF SELECTED 
TRAP C$CLP1l 


sGET BUFFER ADDRESS 

s;CURRENT RECORD SIZE 

sFIRST LOCATION IN BUFFER 

;SET POINTER TO FRAME CWORD) 
sCHECK DATA READ (R3=DATA ALSO) 
:BR, IF i IS WELL 


RE 
sEXPECTED DATA 
;BUMP COUNT 
sDATA READ NOT = WRITTEN 
TRAP CS$ERHRD 
-WORD 453 
-WORD T24DTA 
-WORD EXPREC 
;LOOP IF SELECTED 
C$CLP1 
;BUMP TO NEXT LOCATION 
;GET RID OF BASE ADDRESS 
: RECORD YET 
;BR, IF NOT AT END OF RECORD 
;BUMP RECORD SIZE 
END RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
sL LOOP IF SELECTED 
TRAP C$CLP1 
$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
0061: 
TRAP CsESUB 


:IS ERROR COUNT AT 25 
ORY IF LESS THAN 25 
Y TO DROP THE UNIT 


A READ REVERSE COMMAND READING A RECORD 
THE SPECIFIED BYTE COUNT CAUSES TAPE 


sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 


;C(RLL) BIT SET. 


BGNSUB 


JSR 


PC, T24RT3 


y>>>>>>>>>>>> GeGIN SUBTEST >>>>>>>>>>>> 


TRAP C$BSUB 
;SET UP OTHER COMMAND PACKET 


SEQ 0160 





F1s 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


041700 
041704 


7097 04 


004737 
004737 


013737 
012704 


047470 
047562 


016114 
002212 


002172 
045000 


0107S2 
002212 


011136 
016456 


002212 
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045020 


JSR 
JSR 


PC, T24REST 
PC, T24RT2 


3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


SEEKER EEE EEE SESE EERE S EE EEE EEE EEE EERE EERE EERE e TEE eee Ee 
; 
;ISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


: 
FESS SEES SESE SESS ESSE SEES SEE EEE EEE EES SESS SEES EEE EEE EEE EEE 


JSR PC,SOFINIT 

BCS 20$ 

INC FATFLG 

V RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
20$: 

MOV UNITN, T24DSW 

MOV #TO4PACKET ,R4 


PC,WRTCHR 
243 

FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG,SFIMSG 


JSR 
BCS 
INC 


24s: CKLOOP 


:00 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

sBUMP COUNT 

;CONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 

;SET DRIVE NUMBER IN PACKET 


C$ERDF 
454 


SFIERR 
SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 
jE EEE EEE EEE SEES ESSE EE EEE EE ESSERE ESSE EEE EEE EEE RE SEE ESSE SEE EE 
; 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FFE EES ESSE ESSE SEES SESE EEE ESE SESS ESSERE ESE SEES EE ESE 


;ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 

sSAVE CONTENTS OF TSSR 

SWRITE CHARACTERISTISC a 


° TWoRO 
- WORD 
WORD 
sLOOP IF SELECTED 
TRAP 


pEeee EEE EEE SESE E ESET SEES EE EEESEESESESERERE SESE SESE ESE EEES 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FESS SSSSSSS SESE SES SSS SARS SS SSS SSS SSS SESS SSS SSS SESS SS SSS SSS SES SESE SEE 


JSR PC,REWIND 

JSR PC,CHKTSSR 

BCS 30$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 
30%; CKLOOP 


;CALL bing | REWIND COMMAND 
sSEE HOW TSSR IS 

sBR, IF NO PROBLEM 

i SAVE TSSR 


;BUMP COUNT 
sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


C$CLP1 


C$ERHRD 
456 
T24RWN 
PKTSSR 


SEQ 0161 


TSV7 - HARDWARE TESTS 1-8 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


104406 
012703 
013737 


012737 
012704 


010337 
0465 


104406 
012703 
013737 


012737 


001000 
003116 


140005 
045130 


045136 
009000 
016370 
000002 
000200 


002212 


000400 
003116 


MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 77-57 


045132 


045130 


045132 


045130 


MOV #512. ,R3 
MOV FREE, T24RB 


TRAP C$CLPl 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


EES EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EE EEE 


;WRITE DATA,ACK,CVC=1 COMMAND 


FEES EEE EEE EE EAE SEE ESSERE EE EEE EERE EEE EEE SEES EEE EEE EEE EEE EEE EEE 


65$: 


75$: 


MOV #140005 ,, T24PK3 
MOV #T24PK3,R4 

MOV R3,T24SZ 

MOV R4, TSDOBCRS) 
JSR PC,WAITF 

MOV TSSRCRS),R1 
MOV SR, 

CMP 1,R2 

BEQ 75$ 

NC 


I FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


$256. ,R3 
MOV FREE, T24RB 


s;WRITE DATA,ACK,CVC*1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 
sWAIT FOR SSR TO ad 


s;ARE THEY EQUAL 
OK 


3BR, 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP C$ERHRD 
. WORD 457 
.WORD WRTERR 
WORD PKTSSR 


sLOOP IF SELECTED 


TRAP C$CLP1 
;SIZE_OF RECORD 
sSTARTING READ BUFFER ADDRESS 


FERRE EEE EEE EEE SEES EEE EE EERE EERE EEE EEE EEE REESE ESSE EEE ESSE EEE EE EE 
; 
;READ DATA,ACK COMMAND 


; 
FEES EEE SEEKS ESSE EKER EEE SESE EEE EEE EEE EEE EE EE EE 


165$: 


170$: 


MOV #100401 , T24PK3 
MOV @T24PK3 ,R4 

MOV R3,124SZ 

MOV R4, Me a's Saad 


MOV TSeRCRs 
MOV pseniscibrte, R2 
R1,R2 


BEQ 170 
INC FATFLG 
ERRHRD ERRNO, T24TRL,EXPREC 


CKLOOP 


;READ DATA,ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


;BUMP COUNT 5 
sTSSR INCORRECT AFTER =o 


CSERHRD 
-WORD 456 
-WORD T24TRL 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP C$CLP1 


FESS S ESSEC SEES ESSERE EEE SESS SESE KESTER EES EEE SESE ESSE EEE TESS 


SEQ 0162 


H13 
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013701 


045030 
010000 


002212 


002212 
017322 


016114 
002212 
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000017 


sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
SEER EERE EEE EEE EEE EEE EEE EEE EEE EEE EEE ESSE EEE ESSE EE EE EEE ESSE EE 


MOV + ae peat sGET MESSAGE oe (XSTO) 


MOV 1,R2 3SET - EXPECT 
BIS #8iT12,R2 ;SET THE RLL BIT IN EXPECTED 
CMP R1,R2 ;ARE THEY E 
BEQ 180$ ;BR, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24L0ON,€XPREC ;THE RLL BIT WAS NOT SET IN XSTO 
TRAP CS$ERHRD 
WORD 459 
. WORD T24L0N 
. WORD EXPREC 
180$: CKLOOP 
TRAP C$CLPl 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10062 


* TRAP = C$ESUB 


CMP FATFLG,#15. IS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
PC ,CKDROP TRY TO DROP THE UNIT 


999%: 

" 

;TEST 4, SUBTEST 9 

SEFERCS Litt He ROREYERSE GOERS, STEGIEANES 


;THE PROPER ERROR STATUS WITHOUT MOVING T 
30 


BGNSUB 3 >>>>>>>>>>>> at SUBTEST >>>>>>>>>>>> 
TRAP C$6SUB 
TST NXMFLG 300 WE HAVE IT? 
BNE 10$ ;6R, IF ENOUGH 
JMP 180$ ;SKIP THIS TEST IF NOT 
10$: JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 


fPRSEREE EEE EEE SEER ESSE TEESE ESE EEEE EEE ESSEEEER ESSE EEE SEES EEE ES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FESS ESSE SEEKS ESSE SSE SS SSE SESS ESSE SS SS SESS SESS ESSE SEES EE EEEE 


JSR PC,SOFINIT :00 ee ON CONTROLLER 
BCS 20$ sBR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS = OK 
RAP CS$ERDF 
THORO 460 


SEQ 0163 


113 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
042334 003652 .WORD SFIERR 
042336 012154 :WORD  SFIMSG 
7202 042340 20$: 
7203 042340 013737 002172 045020 MOV UNITN, T24DSW ;SET DRIVE NUMBER IN PACKET 
7208 042346 012704 045000 MOV #T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
7608 FEES EEE EES EES EEE EEE SEE EEE EEE EEE SEES ESE SESE EEE KEE EEE EEE 
Q 
7208 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: 
asia FEES EEE EES EEE EEE EEE EEE SESE EEE EEE EEE EEE SEES EEE SEE ESE EEE EEE ES ES 
7212 042352 004737 010752 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
7213 042356 103407 BCS 24$ ;B8R, IF COMMAND ISSUED OK 
7214 042360 005237 002212 INC FATFLG ;BUMP COUNT 
7218 042364 010001 MOV RO,R1 ;SAVE CONTENTS OF T 
7219 042366 ERRHRD ERRNO,WRTMSG,SFIMSG S WRITE ONARACTERIST rec FAILED 
042 104456 CSERHRD 
042370 000715 461 
042372 005056 “WORD WRTMSG 
042374 012154 “WORD SFIMSG 
7220 042376 24$: CKLOOP ;LOOP IF SELECTED 
7221 042376 104406 TRAP C$CLPil 
Ls FESS SESS SESE SSE ESSE SESS EES ESSE EESE ESSE SESE SEE EEE EEE EEE SES 
2 3 
7208 ;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
vees FESS SESE ESE SESS EE SESE SEES EEE SESE SESE ESSE SESE SEES ES ESE SESE ES ESE 
22 
7228 
7229 042400 005737 002216 TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
7230 042404 001024 BNE 27% ;BR IF SWITCH IS ON 
7231 042406 112737 000200 045141 MOVB $200, 124BS1 ;WRITE MISCELLANEOUS CONT/READ STATUS 
7232 042414 112737 000010 045140 MOVB #10, 124BS0 ;FUNCTION SEL ECTION BIT (TURN ON EXTFEA HW SWITCH) 
7233 042422 012704 045110 MOV $T24PK2 ,R4 ;WRITE SUBSYS NEM PACKE 
7234 042426 010465 000000 MOV R4, TSDBCRS) ;I1SSUE COMMAND 
7235 042432 004737 016456 JSR PC, CHKTSSR ;WAIT FOR SSK 
7236 042436 103407 BCS 28$ ;BR, IF NO ERROR 
7237 042440 010001 MOV RO,R1 ERROR, SAVE TSSR 
7238 042442 005237 002212 INC FATFLG ;BUMP COUNT 
7242 042446 ERRHRD ERRNO, T22SSR,PKTSSR }TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
042446 104456 TRAP C#ERHRD 
042450 000716 .WORD 462 
042452 027230 “WORD T22SSR 
042454 012166 .WORD PKTSSR 
7243 042456 278: 
7244 042456 28$: CKLOOP ;LOOP IF SELECTED 
042456 104406 TRAP C$CLPl 
7245 
B35 
7248 042460 004737 011136 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
7249 042464 004737 016456 JSR PC, CHKTSSR ;SEE HOW TSSR IS 
7250 042470 103407 BCS 30$ :BR, If NO PROBLEM 
7251 042472 010001 MOV RO,R1 SAVE TSSR 


7252 042474 005237 002212 INC FATFLG ;BUMP COUNT 


J13 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
7256 042500 ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
042500 104456 TRAP CSERHRD 
042502 000717 .WORD 463 
042504 046266 .WORD T24RWN 
042506 012166 .WORD PKTSSR 
7257 042510 30$: CKLOOP ;LOOP IF SELECTED 
042510 104406 TRAP CS$CLP1 
7258 042512 012703 000005 MOV #5. ,R3 ;NUMBER OF RECORDS 
7259 042516 013737 003116 045132 MOV FREE , T24RB ;STARTING WRITE BUFFER ADDRESS 
see0 FFE SEES SESE SESE EEE EEE ESSERE SEES EES EEE EEE SEES EE EEE EERE EEE 
H 
70g ;WRITE DATA,ACK,CVC=1 COMMAND 
; 
ee] FFE SESS SESE SSE SSS SEES SES SEES EEE SEE SSE SESE SESE EES EEE SESE SEES SEES 
7266 042524 012737 140005 045130 MOV #140005, T24PK3 ;WRITE DATA, ACK,CVC=1 COMMAND 
ree? oeeas2 012704 045130 a MOV OT24PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
7269 042536 012737 000256 045136 MOV $256, 724SZ ;SET UP RECORD SIZE IN PACKET 
7270 042544 010465 000000 MOV R4, TSDB(RS) 31SSUE COMMAND 
7271 042550 004737 016370 JSR PC ,WAITF ‘WAIT FOR SSR TO SET 
7272 042554 016501 000002 MOV TSSR(RS),R1 3;GET TSSR CONTENTS 
7273 042560 012702 .000200 MOV @SSR,R2 iSET UP EXPECTED 
7274 042564 020102 CMP R1,R2 ;ARE THEY EQUAL 
7275 042566 001406 BEQ 73s ;BR, IF OK 
7276 042570 005237 002212 INC FATFLG ;BUMP COUNT 
7280 042574 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
042574 104456 TRAP C$ERHRD 
042576 000720 .WORD 464 
042600 005113 .WORD WRTERR 
042602 012166 .WORD PKTSSR 
7281 042604 75$: CKLOOP ;LOOP IF SELECTED 
042604 104406 TRAP C$CLP1 
7282 042606 005303 DEC R3 ;BUMP DOWN RECORD COUNTER 
7283 042610 001352 BNE 65$ iBR IF NOT AT S RECORDS YET 
7284 042612 012703 000400 MOV $256. ,R3 RECORD 
7285 042616 012701 160000 MOV #160000 ,R1 iNXM TOW ADDRESS S 
7286 042622 012702 177776 MOV 0177776,R2 LIMIT CHECK FOR ne (HIGHEST) 
7287 042626 004737 016516 JSR PC, XNXM sLOOK FOR NXM ADDRESS 
7288 042632 103046 BCC 180% ;BR, IF NON FOUND 
7289 042634 010137 003132 MOV R1,NXMLO ;SET ADDRESS UP FOR TEST 
7290 042640 013737 003132 045132 MOV NXMLO, T24RB s;STARTING READ BUFFER ADDRESS 
7291 042646 005037 045134 CLR T24RB-2 sSET TO 16 BIT ADDRESSING 
34 FFSSSSSSS SES SSS SESS SSS SESS SESS SSS SS SESS SSS SESS SES SESS SES SESE ESE EEE 
3 
4299 ;READ DATA,ACK COMMAND 
i" 
LL 344 FFSSSESSSSS SESS SSS SSS SSS SSSSSE SSS SSS SSS SSS SESS SESS SES SSSE SSS SES SES SEE EEE 
298 
7299 042652 012737 100001 045130 MOV #100001 , T24PK3 ;READ DATA,ACK COMMAND 
7300 042660 012704 045130 165%: MOV OT24PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
7301 042664 012737 000400 045136 MOV $256. ,124SZ sSET UP RECORD SIZE IN PACKET 
7302 042672 010465 000000 MOV R4, TSOBCRS) s1SSUE COMMAND 
7303 042676 004737 016370 JSR PC WAITE sWAIT FOR SSR TO SET 
7304 042702 016501 000002 MOV TSSR(RS),R1 ;GET 15SR CONTENTS 


7305 042706 012702 104210 MOV @SSR!INXM!SC!BIT3,R2 iSET UP EXPECTED 


K13 
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7355 


045134 
045134 


002212 


002212 
017322 


047624 
047470 
047562 


016114 
002212 
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000017 


CMP R1,R2 

BEQ 170$ 

INC T24RB+2 
CMP T24RB-2, 04 
BNE 65$ 

INC T 


FATFLG 
ERRHRD ERRNO, T24NXM,PKTSSR 


170$: CKLOOP 


180$: 
ENDSUB 
CMP FATFLG,#15. 
BLO 999 
JSR PC ,CKDROP 
999$: 


| Tad 
; 
sTEST 4, SUBTEST 10 


3 ARE be aes 

iset TO NEXT HIGHER ADDRESSING MODE 
;DID WE OVERFLOW INTO 19 BITS 

;BR, IF STILL IN 16-18 BITS RANGE 


;BUMP COUNT 
iTSSR INCORRECT AFTER a lie 


C$ERHRD 
«WORD 465 
«WORD T24NXM 
WORD PKTSSR 


sLOOP IF SELECTED 
TRAP C$CLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10063: 


TRAP C$ESUB 
sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


;VERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ 
sCOMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE 


sILLEGAL COMMAND CILC) ERROR BIT SET. 


BGNSUB 

JSR PC, T24RT3 
JSR PC, T24REST 
JSR PC, T24RT2 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.10: 


TRAP C$BSUB 
sSET COMMAND pany oA UP CLEAR 
;SET COMMAND PACKE 
sSET UP OTHER COMMAND PACKET 


sECSESESEEE SESE SEES SE SES ESET SEES ESERSSSESESEES SESE SESE ESSERE SEES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


i 
FFSSSS SESS SSS SESS SSS SE SSESSE SESS SESS SESE SES SESS SESS SSS ESSE SESE SE SEEE 


JSR PC, SOFINIT 
BCS 208 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG 


20$: 


sFATAL ERROR TSSR WAS NOT OK 
RAP 


:D0 INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 


sBUMP COUNT 
;CONTENTS OF TSSR REGISTER 


WORD 
. WORD 
WORD 


SEQ 0166 


Lis 
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043030 
043036 


013737 
012704 


104406 
013737 


012737 


013701 
010102 
052702 
020102 
001406 


002172 
045000 


010752 
002212 


003116 


104001 
045130 
000400 
000000 
016370 
00000. 


2 
100206 


002212 
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045020 


045132 


MOV UNITN, T24DSW ;SET UP DRIVE NUMBER 
MOV STO4PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


SERRE EEE EEE EEE EEE EEE EEEE ESSE EEE EE EERE EEE SESE REESE REET EES E EES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FESS ESSEC SEES SESE S SESS SESE SEES ESET SES ES SESE E SESE EE EEE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 243 ;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC oo 
- WORD 
. WORD 

243: CKLOOP ;LOOP IF SELECTED 


MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 
SPREE ESTEE ESSE EEE EEE EE SEES EE EEESEEEEE ESSE SEER ERE REEEE ERE SEE ES 
PILLEGAL MODE DATA,ACK COMMAND 
j POSS SeERERSSEEEERESEEEESSESEORTSSEEEESEEEEREESEEEESESESEESEESESeES 
MOV #104001, aa sILLEGAL MODE DATA,ACK COMMAND 


MOV $T24PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 


MOV R4, TSOBCRS) ;1SSUE COMMAND 

JSR PC. WATTE ;WAIT FOR SSR!BIT1!BIT2 TO SET 

MOV TSSR(RS) ;GET TSSR CONTENTS 

MOV psensscs6rti B1T2, R2 SET UP EXPECTED 

CMP R1,R2 ;ARE THEY EQUAL 

BEQ 753 iBR, IF OK 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24WDF ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
. WORD 
"WORD 
“WORD 

75$: CKLOOP ;LOOP IF SELECTED 

TRAP 


FSS SSSS SSS SSSES SESS SSS SESS SSES SSS S SESE SESS SSS SSS SESS SSS SESE SESE SESE KEES 
FREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
- SSSSSSSSSSSSSSSSSESSESSSSSSSSESSSESSSSSSSSSSSESSSESSSSSSSSESCSSSSESSSESSESESSES 
T24BFR-+6,R1 :GET MESSAGE BUFFER 
MOV R1,R ;SET UP EXPECTED 
BIS #8179,R2 
CMP R1,R2 


;SET THE ILC BIT IN EXPECTED 
;ARE THEY E 
BEQ 180$ ;BR, IF EQUAL CALL IS WELL) 


C$ERHRD 
467 
WRTMSG 
SFIMSG 


C$CLPl 


C#ERHRD 
468 


T24WDF 
PKTSSR 


CsCLPl 


SEQ 0167 


M135 
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TEST 4: BASIC READ DATA CFORWARD AND REVERSE) 

7409 043176 005237 002212 INC FATFLG ;BUMP COUNT 

7413 043202 ERRHRD ERRNO, T24L0Q,EXPREC ;THE ILC BIT WAS NOT SET IN XSTO 
043202 104456 TRAP CS$ERHRD 
043204 000725 .WORD 469 
043206 045616 .WORD T24L0Q 
043210 015614 -WORD EXPREC 

7414 043212 180$: CKLOOP 
043212 104406 TRAP C$CLP1 

7415 043214 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
043214 L10064: 
043214 104403 TRAP Cs$ESUB 

7416 043216 023727 002212 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 

7417 043224 103402 BLO 999$ ;BR, IF LESS THAN 25 

7418 043226 004737 017322 JSR PC ,CKDROP sTRY TO DROP THE UNIT 

7419 043232 999$: 

7420 

7421 3° 

7422 3 

vasa — 4, SUBTEST 11 

7425 i VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 

7426 sFUNCTION yh eo WITH ILLEGAL ADDRESS 

7427 }CILA) ERROR BIT SET 

7428 3 

7429 ; 

7430 ; 

7431 3- 

7432 

7433 043232 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>> >>> 
043232 74.11: 
043232 104402 TRAP C$BSUB 

7434 043234 004737 047624 JSR PC, T24RTS 3SET COMMAND PACKET UP CLEAR 

7435 043240 004737 047470 JSR PC, T24REST 3SET COMMAND PACKET 

Lint 043244 004737 047562 JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 

Lit = 4 Piri titi titi itittiii titi iiititiitiiiitiiiiiiiriiitiriri irri ri ri ris 

8 
wean sI1SSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 

rs Pertti titi tititi titi itt titi iitiitiiittitiiiiiii titi titi iii titi iit. 

7444 043250 004737 016114 JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 

7445 043254 103407 BCS 20$ 3;68R IF INIT WAS OK 

7446 043256 005237 002212 INC FATFLG ;BUMP COUNT 

7450 043262 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

7451 043264 ERRDF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
043264 104455 TRAP CSEROF 

000726 .WORD 470 

043270 003652 -WORD SFIERR 
043272 012154 -WORD SFIMSG 

7452 043274 20%: 

7453 043274 013737 002172 045020 MOV UNITN, T24D0SW sSET UP DRIVE NUMBER 

Lap = 043302 012704 045000 MOV @T24PACKET, R4 sSUBROUTINE NEEDS PACKET ADDRESS 

7456 PPT Tit tii tii titi i titi titi iti iti i iit i ii titrir iii rir irri irri iit i rir 


7458 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


N13 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


010752 
002212 


7470 043332 243: 


104406 
013737 003116 045132 
012737 177700 045134 


012737 140001 
045130 
000400 


045130 
045136 
000000 
016370 
000002 
100206 


002212 


75$: 


013701 
010102 
02 


PC ,WRTCHR 
243 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


CKLOOP 


MOV FREE, T24RB 
MOV #177700, T24RB+2 


MOV #140001, alates 
24PK 


MOV OT24PK3.R 

MOV $256. 73467 

MOV R4, TSOBCRS) 

JSR WAITE 

MOV TSSR(RS), RI 

MOV #SSR!SC!BIT1!BIT2,R2 
CMP R1,R2 

BEQ 753 

INC FATFLG 


ERRHRD ERRNO, T24W0G,PKTSSR 


CKLOOP 


MOV T24BER-6, Ri 
MOV R2 

BIS Gite. R2 
CMP R1,R2 

BEQ 


1 
INC FATFLG 
ERRHRD ERRNO, T24ILA,EXPREC 
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SEQ 0169 


3 
FESS SSE ESE SES ESSE SESE SEE EEE SESS SESS ESSE SESE SES ESE SESE EEE ES 


s ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sBUMP COUNT 


C 
;SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC — 
C$ERHRD 
TWORO 471 
:WORD WRTMSG 
«WORD SFIMSG 
sLOOP IF SELECTED 
C$CLP1 


sILLEGAL STARTING READ BUFFER ADDRESS 
sCREATE ILLEGAL ADDRESS 


{FEES ESET ESSE EEEEE EE EEEEEEEEESEEEEEES EEE SE REESE REESE SEES EES EES 
; 
sLEGAL MODE ,ACK,CVC=1,READ COMMAND 


3 
FESS SS SESS SS SESS SSS SESS SSS SSS SS SS SSK SESESSES SEES SEES SESE 


;LEGAL MODE,ACK,CVC=1,READ COMMAND 
;SET UP R4 WITH NW BacKet ADDRESS 
;SET UP RECORD SIZE IN PACKET 
s1SSUE COMMAND 

WATT FOR SSR!BIT1!BIT2 TO SET 
:GET TSSR CONTENTS 

3SET UP EXPECTED 


+ ARE THEY EQUAL 

;BR, IF OK 

sBUMP COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 472 
.WORD T24WDG 
»-WORD PKTSSR 

3LOOP IF SELECTED 
TRAP CsCLP1 


sPSSSSSRSSSS SSS SSESS ESS SES ESET SESS SESS ESSER SEE SEE SEES EEESETES 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FFSSSSSSSSSSSSSESSSSSSSSSSESSS SSS SSS SESS SSESSSSSSSSS SSS SSSSESSESSESSSESSES 


sGET MESSAGE BUFFER 

sSET EXPECT 

1361 Ly. 3 ILA BIT IN EXPECTED 

;BR, IF EQUAL CALL IS WELL) 

s;BUMP C 

sTHE ILA BIT WAS NOT SET IN XSTO 
TRAP | tea 


“WORD T24ILA 


B1i4 


TSV? - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


043462 


043572 


015614 
104406 


2 
004737 


013737 
012704 


004737 


002212 
017322 


003130 
043752 
047624 


047470 
047562 


016114 
002212 


002172 
045000 


010752 
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000017 


045020 


-WORD EXPREC 
180$: CKLOOP 
TRAP C$CLP1 
ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10065: 


* ‘TRAP CSESUB 


CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 


999$: 

3* 

iTEST 4, SUBTEST 12 

; VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
sNONEXISTANT MEMORY CAUSES tee ott ERROR 

s TERMINATION (TC=4), SET IN THE TSSR, AND 


WITH THE NXM BIT 
;THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 
30 


BGNSUB }>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.12: 
TRAP C$BSUB 
TST NXMFLG ;D0 WE HAVE IT? 
BNE 10$ :BR, ENOUGH 
JMP 80$ i Skip THIS TEST IF NOT 
10$: JSR PC, T24RT3 ;SET COMMAND PACKET UP CLEAR 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 


5 EEE EERE EEE EEE EE EEE EE EE EEE eee EE EEE EE EE EEE EEE EE EEE EE EE EE 
; 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 

SEERA EERE EEE EEE EEE ESSE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EE EEE 


JSR PC,SOFINIT :D0 eutruee 


BCS 20$ ;BR IF INIT 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

ERROF  ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP C$ERDF 
-WORD 474 
-WORD  SFIERR 

208 -WORD SFIMSG 
MOV UNITN, T24D0SW sSET UP DRIVE NUMBER 
MOV ST24PACKET ,R4 s;SUBROUTINE NEEDS PACKET ADDRESS 


SPREE EEE EE EEE EEE SEES EE EEE EEE EEE EEE EEE EEE EEE EEE EE EEE EEE EEE EES 
; 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

; 

{EERE EEE EEE EE EEE ESTES SEES OSES SEER E EE EE EEE EEE EEE 


JSR PC,WRTCHR sISSUF WRITE CHARACTERISTICS 


SEQ 0170 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


7562 043576 10340 BCS 243 
7563 043600 005237 002212 INC FATFLG 
7567 04 010001 MOV RO,R1 
7568 043606 ERRHRD ERRNO,WRTMSG,SFIMSG 
0436 1044 
043610 000733 
043612 005056 
043614 012154 
7569 043616 24$: CKLOOP 
043616 1044 
7570 0436, 012701 160000 MOV #160000,R1 
7571 043624 012702 177776 MOV #177776 ,Re 
7572 043630 737 016516 JSR PC, XNXM 
7573 043634 103 BCC 80$ 
7574 043636 010137 003132 MOV Ri ,NXMLO 
7575 043642 013737 003132 045132 MOV NXMLO, T24RB 
7376 043650 005037 045134 CLR 124RB+2 
7578 
7579 ; 
7580 ;READ, ACK, CVC=1, COMMAND 
7581 
7582 
7583 
7584 043654 012737 140001 045130 304: MOV #140001, T24PKs 
7585 04 012704 045130 MOV $T24PK3,R 
7586 043666 012737 000400 045136 MOV 9256, T248Z 
7587 043674 010465 000000 MOV R4, TSDBCRS) 
7588 043700 004737 016370 JSR PC, WAITF 
7589 043704 016 000002 MOV TSSR(RS),R1 
7590 043710 012702 104210 MOV @SSR!SC!NXM!BIT3,R2 
7591 043714 020102 CMP R1,R2 
7592 043716 001414 BEQ 75$ 
7593 043720 005237 045134 INC T24RB-2 
7594 043724 023727 045134 000004 CMP T24RB+2,04 
7595 043732 13 BNE $ 
7596 043734 005237 002212 INC FATFLG 
7600 043740 ERRHRD ERRNO, T24NXM,PKTSSR 
043740 104456 
043742 0007 
043744 045371 
043746 012166 
7601 043750 75$: CKLOOP 
043750 104406 
7602 043752 80$: 
7603 043752 ENDSUB 
043752 
043752 1044 
7604 043754 023727 002212 000017 CMP FATFLG, #15. 
7605 043762 103402 BLO 999$ 
7606 043764 737 017322 JSR PC, CKDROP 
7607 043770 9994: 
7608 
7609 ied 
7610 3 
7611 ;TEST 4, SUBTEST 13 


7612 $ 
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SEQ 0171 


;BR, IF COMMAND ISSUED OK 
3B OUNT 


iSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC hs 
alta 
"WORD 
. WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP C$CLP1 


sNXM LOW ADDRESS STA 

sLIMIT CHECK FOR ior (HIGHEST) 
;LOOK FOR NXM ADDRESS 

BR, IF NON FOUND 

iSEt ADDRESS UP FOR TEST 

;SET TO NXM MEMORY ADDRESS 
;SET TO 16 BITS ADDRESSING 


FEES EEE EE SEEKS EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE 


G 
FEES EEE SEEKS EEE EEE EEE SEE ESE EEE EEE EEE ESE EKER EEE EEE ESS 


;READ, ACK, CVC=1, COMMAND 
;SET UP R4'°WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
+1SSUE COMMAND 
;WAIT FOR SSR#BIT1!BIT2 TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 

QUAL 


IF OK 
;BUMP TO NEXT —— RANGE 
S CHECK FOR OVERFLOW 
aoe IF Ot IN 16-18 BIT RANGE 


OUN 
;TSSR INCORRECT AFTER READ DATA 
TRAP 


C$ 

. WORD 476 
. WORD T24NXM 
.WORD PKTSSR 

sLOOP IF SELECTED 

TRAP C$CLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
* TRAP CsESUB 


sIS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
;TRY TO. DROP THE UNIT 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


004737 
103407 
005237 
010001 


104455 
000735 


003652 
012154 
013737 
012704 


047624 
047470 
047562 


016114 
002212 


002172 
045000 


010752 
002212 
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045020 


sVERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 

; 

; 

; 

‘= 


SEQ 0172 


BGNSUB 3 >>>>>>>>>>>> BEGIN er >>>>>>>>>>>> 
obo 
TRAP C$BSUB 
JSR PC, T24RT3 ;SET COMMAND PACKET UP CLEAR 
JSR PC, T24REST :SET COMMAND PACKET 
JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 


SFE EEKE EEE EEE EEE EEE SESE ES EEE EEE EEE EEEESEE EEE EES 


2 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FFE EEK EERE EEE EEE ETE EEE EEE EEE EEE EEE EEE EES EEE EEE EEE EEE EEE EE 


CS$ERDF 
477 

SFIERR 
SFIMSG 


JSR PC,SOFINIT :D00 agit | ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS a 

. WORD 

. WORD 

208 . WORD 

MOV UNITN, T240SW sSET UP DRIVE NUMBER 
MOV ST24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


§ EERE EERE EEE EERE EEE EEE EEE EEE EEE EEE EEE EE EE ES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


5 
FESS ESSE SEEKS SS ESSE SESS SEES ESSE SEER ESE RES 


JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 243 ;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC ay 
"WORD 
. WORD 
. WORD 

243: CKLOOP sLOOP IF SELECTED 

TRAP 


fF E ESSE EESEEEEE SESE EES EEEEESSSEEEE EES ESSERE ERE REESE ESE TEES 
; 
sISSVE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
FSSC SESS SSS ESS SESE SSE SSK ESE SES ESSE ESSE SES EKER ESSE ESSERE SESS 


CSERHRD 
478 
WRTMSG 
SFIMSG 


C$CLPl 





E14 
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SEQ 0173 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
7665 
7666 044072 004737 011136 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
7667 044076 004737 016456 JSR PC,CHKTSSR ;SEE HOW TSSR IS 
7668 044102 103407 BCS 30$ ;BR, IF NO PROBLEM 
7669 044) 1000 MOV RO,R1 ;SAVE TSSR 
7670 044106 005237 002212 NC FATFLG sBUMP COUNT 
7674 044112 ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
044112 104456 TRAP C$ERHRD 
044114 000737 «WORD 479 
044116 046266 -WORD T24RWN 
044120 012166 WORD PKTSSR 
7675 044122 30$: CKLOOP ;LOOP IF SELECTED 
044122 104406 TRAP C$CLP1 
7676 044124 012703 000400 MOV #256. ,R3 sRECORD SIZE 
Ls 2 0441 013737 003116 045132 MOV FREE, T24RB sSTARTING WRITE BUFFER ADDRESS 
a 14, SERRE EEE EEE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EE ES EERE EEE EEE EERE 
; 
meas s;READ REVERSE DATA,ACK COMMAND 
; 
wees FERRERS EEE EEE EE EERE EERE EEE E SEER E SESE SESE SEES SESE EEE EEE ESSE 
7685 044136 012737 100401 045130 MOV #100401, T24PK3 ;READ REVERSE DATA,ACK COMMAND 
meat Seaise 012704 045130 _ MOV ST24PK3 ,R4 ;SET UP R4& WITH PACKET ADDRESS 
7688 044150 010337 045136 MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
7689 044154 010465 000000 MOV R4,TSDBCRS) s ISSUE COMMAND 
7690 044160 004737 016370 JSR PC ,WAITF + M FOR SSR TO SET 
7691 044164 016501 000002 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
7692 044170 012702 100206 MOV @SSR!SC!BIT1!BIT2,R2 iSET UP EXPECTED 
7693 044174 020102 CMP R1,R2 sARE THEY EQUAL 
7694 044176 001406 BEQ 75$ iBR, 
7695 044 005237 002212 INC FATFLG :BUMP COUNT 
7699 044204 ERRHRD ERRNO, T24WDE ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
044204 104456 TRAP CSERHRD 
044206 000740 - WORD 0 
044210 045731 «WORD T24WDE 
044212 012166 -WORD PKTSSR 
7700 044214 75$: CKLOOP sLOOP IF SELECTED . 
7701 044214 104406 TRAP C$CLP1 
vrs fp REET EEE EEE EEE EEE EEE EEE EEEEEEEEEEEEE EEE EEESEEE SEES EEE EE EES 
; 
Os sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
a f PERRET EEE EEE EEE EEE EEE SEES ESSE EEE ESSE EEEEEE EEE EEE SESE EEE EEE 
ie) 
7708 044216 013701 045030 MOV T24BFR+6,R1 sGET MESSAGE BUFFER 
7709 044222 010102 MOV R1,R iSET ¥ EXPECTED 
7710 044224 052702 002000 BIS #81T10,R2 sSET THE NEF BIT IN EXPECTED 
7711 044230 02010, CMP R1,R2 sARE THEY EQUAL 
7712 044232 001 BEQ te IF EQUAL CALL IS WELL) 
7713 044234 005237 002212 INC FATFLG UMP” COUNT 
7717 044240 ERRHRD ERRNO, T24NEF ,EXPREC } THE RLL BIT WAS NOT SET ver xSTO 
044240 104456 RAP CSERHRD 
044242 000741 TWORO 481 
044244 045160 -WORD T24NEF 


F14 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


7718 


7719 044252 


044344 
044350 


015614 
104406 


2 
012154 


013737 
012704 


004737 
103407 


002212 
017322 


047624 
047470 
047562 


016114 
002212 


002172 
045000 


010752 
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000017 


045020 


180$: CKLOOP 
ENDSUB 
CMP FATFLG,#15. 
BLO 999$ 
JSR PC ,CKDROP 
999$: 


3° 
i 
‘Manid 4, SUBTEST 14 


WORD EXPREC 

TRAP C$CLP1 

$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10067: 

TRAP C$ESUB 


IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


;VERIFIES THAT A READ REVERSE COMMAND ISSUED ee ig 


;TAPE IS POSITIONED BEFORE 


THE FIRST RECORD ON T 


;(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 


BGNSUB 

JSR PC, T24RT3 
JSR PC, T24REST 
JSR PC, T24RT2 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.14: 


TRAP C$BSUB 
3SET COMMAND PACKET UP CLEAR 
3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


SERRE EEE EEE EEE EEE EEE EEE EEE EEE EEEE EE ES EEE EERE SEES EERE SESE EEE ES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FESS SSS ESS SESE SEEKERS SESE ERS SASSER ESSE SSS SESE EEE EEE EEE 


JSR PC,SOFINIT 

BCS 20$ 

INC FATFLG 

Vv RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
20$: 

MOV UNITN, T24DSW 

MC $T24PACKET ,R4 


300 INITIALIZE ON CONTROLLER 
;BR IF ay WAS OK 


BUMP 
iCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS ag A 


CS$ERDF 
-WORD 482 
«WORD SFIERR 
-WORD  SFIMSG 


;SET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


pF EE EEE SEES EE EEE EEE EE EEE SEES SEER EEESESEEESSS SEES ET EE SESE SEES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
{EFS SSSSSS SESS SESS ESSE SES ESSE SESS ESSE SESE SSS ESSE ESSE ESSE SEES 


JSR PC,WRTCHR 
BCS 24$ 


sISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


SEQ 0174 


14 


TSV7 - HARDWARE TESTS 1-8 


TEST 4: BASIC 


005237 
010001 


012703 
013737 


012737 
012704 


010337 
0465 


104406 
012703 
013737 


002212 


011136 
016456 


002212 


000400 
003116 045132 


140005 
045130 


045136 
000000 
016370 
000002 
000200 


045130 


002212 


000400 
003116 045132 


24$; 


INC 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


CKLOOP 


FATFLG 
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READ DATA (CFORWARD AND REVERSE) 


sBUMP COUNT 
; SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC rears 


s;LOOP IF SELECTED 
TRAP 


SRE EEE EEE EEE EEE EERE ESSE EE EEE EE EEE EEE EEE EEE EEE EEE SEES EE ERE SE EE EE 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
FRESE EEE EEE EEE KEES EEE ERE EEE EEE EEE SES ERE EERE EEEEEEE 


30$: 


PC,REWIND 
PC,CHKTSSR 
30$ 


RO,R1 


FATFLG 
ERRNO, T24RWN,PKTSSR 


#256. ,R3 
FREE, T24RB 


CALL og | ow COMMAND 


ioee HOW TSSR IS 
IF NO PROBLEM 

; SAVE TSSR 

;BUMP COUNT 

; REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


SERRE EEE EEE E SEES EEE EEE EEE EEE SEES SESE EEEE EEE EE RESETS EEE EEE 
; 
sWRITE DATA,ACK,CVC=1 COMMAND 


é 
FEES SEES ESSE SSE SEES SESE SESE EEE ESSE EEE SEES EKER EE ESESE SESS 


65$: 


75$: 


#140005 , T24PK3 
#T24PK3,R4 
R3,T24S 

ne :808¢R5) 
TSERCRSD, Rl 
@SSR ,R2 

R1,R2 

75 


FATFLG 
ERRNO, WRTERR ,PKTSSR 


#256. 
FREE, + 5aR8 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT_FOR SSR _TO eet 


;TSSR INCORRECT AFTER READ DATA 
TRAP 
- WORD 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


SEQ 0175 


C$ERHRD 


C$CLP1l 


C$ERHRD 
484 


T24RWN 
PKTSSR 


C$CLP1 


C$CLP1l 


H1i4 
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SEQ 0176 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
7819 
rash FEES SESS SESE ESE SESE SEES EEE EEE EEE EEE EEE SEEKER EES ESE SESE SESE TEESE ES 
H 
7622 ;READ REVERSE DATA,ACK COMMAND 
Hy 
ress FFE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE SESE EEE EEEES 
7826 044530 012737 100401 045130 MOV #100401, T24PK3 ;READ REVERSE DATA ACK COMMAND 
7827 044536 012704 045130 165$: MOV OT24PK3_R4O ;SET UP R4 WITH PACKET ADDRESS 
7828 044542 010337 045136 MOV R3,724SZ ;SET UP RECORD MSIZE IN PACKET 
7829 044546 010465 000000 MOV R4, TSDBCRS) ; ISSUE COMMAND 
7830 044552 004737 016370 JSR PC: WAITF ;WAIT FOR SSR TO SET 
7831 044556 016501 000002 MOV TSSR(RS),R1 GET TSSR CONTENTS 
7832 044562 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
7833 044566 020102 CMP R1,R2 ;ARE THEY EQUAL 
7834 044570 001406 BEQ 170$ ;BR, IF OK 
7835 044572 005237 002212 INC FATFLG ;BUMP COUNT 
7839 044576 ERRHRD ERRNO, T24TRL,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
044576 104456 TRAP  C$ERHRD 
044600 000746 .WORD 486 
044602 047334 "WORD T24TRL 
044604 012166 "WORD PKTSSR 
7840 044606 170%:  CKLOOP ;LOOP IF SELECTED 
044606 104406 TRAP CS$CLPl 
7841 044610 012703 000400 MOV $256. ,R3 ;RECORD SIZE 
7842 044614 013737 003116 045132 MOV FREE, T24RB ;STARTING READ BUFFER ADDRESS 
reas FEES SESE EEE SESS EEE ESE EEE EEE ESSE ESSE EEE EEE EEE EEE EEE EE EEEEEEE EEE EE 
’ 
7848 ;READ REVERSE DATA,ACK COMMAND 
; 
A oe FESS SSS SESE EEE SESE EEE EEE KEKE SKE EKESESE REE EEE SESE EEE EEEEEEE 
BA 
7850 044622 012737 100401 045130 MOV 9100401 , T24PK3 ;READ REVERSE DATA ACK COMMAND 
7851 044630 012704 045130 195$: MOV OT24PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
7852 044634 010337 045136 MOV R3,12452 SET UP RECORD SIZE IN PACKET 
7853 044640 010465 000000 MOV R4;TSDBCRS) ;ISSUE COMMAND 
7854 044644 004737 016370 JSR PC; WAITF ;WAIT FOR SSR TO SET 
7855 044650 016501 000002 MOV TSSR(R5),R1 ;GET TSSR CONTENTS 
7856 044654 012702 100204 MOV @SSR!SC!BIT2,R2 ;SET UP EXPECTED 
7857 044660 020102 CMP R1,R2 ;ARE THEY EQUAL 
7858 044662 001406 BEQ 2008 ;BR, IF OK 
7859 044664 005237 002212 INC TFLG ;BUMP COUNT 
7863 044670 ERRHRD ERRNO T24TRL.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
044670 104456 TRAP  C$ERHRD 
044672 000747 .WORD 487 
044674 047334 "WORD T24TRL 
044676 012166 "WORD PKTSSR 
7864 044700 200$:  CKLOOP ;LOOP IF SELECTED 
044700 104406 TRAP = C$CLP1 
7865 044702 013701 045036 MOV T24BFR+14,R1 ;GET MESSAGE BUFFER (XST3) 
7866 044706 010102 MOV R1,R2 ;SET UP EXPECTED 
7867 044710 052702 000001 BIS e8iTo, R2 SET THE RIB BIT IN EXPECTED 
7868 044714 020102 CMP 1,R2 ;ARE THEY EQUAL 
7869 044716 001406 BEQ Bt 3 ;BR, IF EQUAL CALL IS WELL) 
7870 044720 005237 002212 ; BUMP 


INC FATFLG Cc 
7874 044724 ERRHRD ERRNO, T24LO0R,EXPREC } THE RIB BIT WAS NOT SET IN XSTO 


114 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
044724 104456 TRAP CSERHRD 
044726 000750 .WORD 488 
044730 045232 .WORD T24LOR 
044732 015614 -WORD EXPREC 
7875 044734 2103: CKLOOP 
044734 104406 TRAP C$CLP1 
7876 044736 ENDSUB }>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
044736 L10070: 
044736 104403 TRAP C$ESUB 
7877 044740 023727 002212 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 
7878 044746 103402 BLO 999$ ;BR, IF LESS THAN 25 
7879 044750 004737 017322 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
7880 044754 999$ 
7881 ; 
7883 
H 
7884 044754 004737 016576 JSR PC, TSTLOOP ;D0 WE NEED TO ITERATE TEST 
7885 044760 103002 BCC 163$ ;BR, IF NO LOOP REQUIRED 
7886 044762 000137 035456 JMP T24L00P ;EXECUTE AGAIN 
7887 044766 163$: 
7888 044766 EXIT TST sALL DONE THIS TEST 
044766 104432 TRAP CS$EXIT 
044770 002664 -WORD L10052-. 
7889 
7890 ° 
oens ;LOCAL STORAGE FOR THIS TEST 
3 
7894 044772 -BLKB 10-<.-TSV2E7> 
7896 045000 T24PACKET : ;COMMAND PACKET FOR TEST 
7897 045000 100204 -WORD 100204 ;WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
7898 045002 045010 -WORD T24DATA ;ADDRESS OF CHARACTERISTICS BLOCK 
7899 045004 000000 -WORD O 
7900 045006 000012 -WORD 10. sSTARTING VALUE OF BLOCK SIZE 
7901 045010 T24DATA: sCHARACTERISTICS DATA BLOCK 
7902 045010 045022 -WORD T24BFR sADDRESS OF MESSAGE BUFFER 
7903 045012 000000 -WORD O 
7904 045014 000024 «WORD 20. s;LENGTH OF MESSAGE BUFFER 
7905 045016 000000 -WORD O 
7906 045020 000000 T24DSW: .WORD O ;ORIVE gy UE BITS 2-0 
La 9 df 045022 T24BFR: .BLKW 25. sMESSAGE BUF 
908 H 
44 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 
7912 045104 -BLKB 10-<.-TSV2E7> 
7914 045110 T24PK2: 
7915 045110 100206 «WORD 100206 ;WRITE SUB SYS MEM COMMAND, IE AND ACK 
7916 045112 045140 -WORD T24BF2 ;ADDRESS OF SELECT BLOCK DATA 
7917 045114 000000 -WORD O 
ie 045116 000006 «WORD 6. sSIZE OF DATA PACKET 
7921 045120 -BLKB 10-<.-TSV2E7> 
7923 045130 T24PK3: 
7924 045130 100205 -WORD 100205 sREAD COMMAND, IE AND ACK 
7925 045132 T24RB: 
7926 045132 003116 T24WB: .WORD FREE sADDRESS OF WRITE BUFFER 
7927 045134 000000 »° 2 


. WOR 
7928 045136 000000 T24SZ: .WORD O sSIZE OF BUFFER CEXTENT) 





J14 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


- EVEN 
; 
5 
: 
T24BF 2: 
T24BS0: .BYTE 
T24BS1: .BYTE 


T24S2:  :WORD 
WORD 


T24RN: .WORD 
T24WOR: .WORD 
T24CON: .WORD 

. WORD 
T24DLY: .WORD 


10 ;BSELO AREA 
200 ;BSEL1 AREA 
9) ;SEL 2 AREA 
0 ;DATA AREA 


100005 ;READ DATA (NEXT) 
100405 sREAD DATA RETRY 
102005 ;WRITE CONTINOUS 
177777 sEND OF DAT 

0 ;DELAY STORAGE AREA 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


T24LOR: .ASCIZ 
T24WDG: .ASCIZ 
T24NXM: .ASCIZ 
T24WDF: .ASCIZ 
T24ILA: SCIZ 
T24L0Q: .ASCIZ 
T24SSR: .ASCIZ 
T24WDE: .ASCIZ 
T24B0T: .ASCIZ 
T24D0TA: .ASCIZ 
T24EOT: .ASCIZ 
T24T™: .ASCIZ 
T24RWN: .ASCIZ 
T24RNC: .ASCIZ 
T24AM3: .ASCIZ 
T240FL: .ASCIZ 
T24WDD: .ASCIZ 
T24WDC: .ASCIZ 
T24VCK: .ASCIZ 
T24BA: ASCIZ 


-ASCIZ 
TST24ID: 
-EVE 


"NEF Not Set After NON-EXECUTABLE FUNCTION’ 
"RIB Not Set After READ REVERSE Into BOT’ 
'TSSR Not Correct After Illegal Buffer Address Bits Set’ 
‘TSSR Not Correct After NXM Memory Address In Packet’ 
'TSSR Not Correct After Illegal Mode Bits Set 
‘Illegal Address Bits, Failed To Set ILA “Bit In XxSTO' 
‘Ille gel by oJ a2 Ant owl To Set ILC Bit In XSTO’ 
‘READ COMMAND Not Accep 
‘TSSR Not taoen mee faite DATA Command’ 
‘Tape Not At BOT After REWIND Command’ 
‘Date Written To Tape t Equal To Date Read From Tape’ 
"READ DATA OVER *Eor GAVE “NO aT APE STATUS ALERT’ 
*TSSR Not Correct After READ COMMAND Re ject’ 
"Rewind (POSITION) Command Not Accepted 
‘RAM Error, Correct Data Pattern Not In Ram’ 
‘TSSR Init. Failed After READ COMMAND’ 
‘Drive 7 Select Failed To Set “OFL” In TSSR’ } 
‘TSSR Not Correct After READ DATA Command, SWB Bit Set’ 
‘TSSR Not Correct After READ DATA Command’ 
B+ Set, Didn''t Reset VCK In Meegege Buffer’ 
TSBA Not Correct After READ DATA Command’ 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
‘Reading L Record Failed To Set RLS Bit In XSTO’ 
‘Residual Byte Count Incorrect After Short Record Read’ 
ing Long Record Failed To Give Tape Status Alert’ 
‘Basic Read Data (Forward and Reverse)’ 


} ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


SEQ 0178 


K14 
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7986 ’ 
7987 - 


012701 


000000 
000030 
177777 045022 64$: 


T24RTe: 


T24RTS: 


012701 
012721 
012721 
005021 


8032 3° 


T24REST: 


34 
8035 ; RECORDS 
36 


VREG 


. SBTTL 


@T24PACKET,R1 
#100004, (Ri)- 
@TO4DATA, (R1)+ 
CR1)- 


#10. ,(R1)-+ 
i.e 


#24. ,R2 

9177777, T24BFRCR2) 
-(R2) 

#0 ,R2 


64$ 
PC 


#T24PK2,R1 
#100206, (R1)-+ 
C(R1)- 
#6.,CR1)+ 
CR1)- 
ST24BF2,R1 
CR1)- 

CR1) 

PC 


ST24PK3,R1 


TEST 5S: SPACE RECORDS 


E 
SFULLY a THIS TEST TO PRODUCE 
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SEQ 0179 


+p ® THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 

;ADDRESS OF CHARAISTICS DATA BLOCK 
T ADDRESS 


sSIZE DATA BLOCK IN BYTES 
s;ADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL_ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

s;CKECK FOR END OF LOOP 

sKEEP GOING UNTIL DONE 

RETURN 


+o} THE REGISTERS 

iSTAR T OF THE PACKET 

ORE SUBSYSTEM MEM. WITH ACK, IE 
ADDRESS OF DATA BLOCK 

;EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

;CLEAR AREA OUT 

sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 
;RETURN 


L100S2: 


TRAP CSETST 


; 

sTHIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 

REVERSE POSITION C 
VER NORMAL DATA REC 

11S gt | INAS 


;SHOULD HAVE BEEN RUN 
;RESULTS. THIS TEST CONSISTS OF A IE 
;0F THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 


L1i4 
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TEST 5S: SPACE RECORDS 
8041 ;O0F VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
8042 sRECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
8043 SEACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
8044 ;THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
8045 3 THE EXPECTED RESULT. 
si : 
3 
ps es ;THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 
3 
8050 ; 
8051 : 
8052 :- 
8053 047656 BGNTST 
047656 TS:: 
8054 047656 012737 006450 002170 MOV #EPRT2, EPRTSW ;SECONDARY ERROR MESSAGE 
8059 047664 004737 017414 JSR PC ,KT OFF ;DON'T NEED LOTS OF MEMORY 
8060 047670 012700 056400 MOV #TST251D,RO sASCII MESSAGE TO IDENTIFY TEST 
8061 047674 004737 016630 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
aoee 047700 012737 000005 002206 MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 
iad 
8064 3 
8065 sTEST 5S, SUBTEST 1 
806? ; 
8068 :VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
8069 ;THE CLEAR VOLUME CHECK (CVC) BIT a IS REJECTED IF 
ore sTHE VOLUME CHECK (VCK) FLAG IS SET 
3 
8072 H 
8073 :- 
8074 
8075 047706 T25LO00P : 
8076 047706 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
047706 TS.1: 
047706 104402 TRAP C$BSUB 
8077 047710 004737 056416 JSR PC, T25SREST ;SET COMMAND PACKET 
8078 047714 005037 055230 CLR T2SCNT sCLEAR THE RECORD COUNTER AREA 
8079 047720 004737 056510 JSR PC, T25RT2 ;SET UP OTHER COMMAND PACKET 
8080 047724 004737 056552 JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 
8081 047730 012737 176750 055232 MOV 965000. , T25DLY sSET UP LOOP COUNTER 
soe; Meir i iit itititiiiiiititiitiiiiittiiititititiiitiitititttt titi ttt ttt] 
3 
8085 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
F 
8087 Pr ti irri titii iii i titi titi titiitiitiitiiiitititiitititiittitt ttt tty 
8089 047736 004737 016114 S$: JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
8090 047742 103427 BCS 10$ ;BR IF INIT WAS OK 
8091 047744 DELAY 250 sDELAY IF REQUIRED 
047744 012727 000250 MOV #250, (PC)- 
047750 000000 . WORD 
047752 013727 002116 MOV LS$DLY,(PC)- 
047756 000000 -WORD O 
047760 005367 177772 DEC ~6¢ PC) 
047764 001375 BNE 


047766 005367 177756 DEC *32cec) 


M14 
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8092 047774 
8093 050000 
8094 


8098 0 
8039 050012 


81 
6142 050110 


013737 
012704 


013701 


055232 
002212 
000002 


002172 


055050 


010752 
002212 


011136 


002212 


055100 
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055070 


DEC T2S50LY 

BNE S$ 

INC FATFLG 

MOV TSSRCRS),R1 

ERRDF ERRNO, SFIERR,SFIMSG 
10$: 

MOV UNITN, T25DSW 

MOV STOSPACKET ,R4 


BNE .-20 
sDEC DELAY COUNTER 
1BR. F LOOP IS REQUIRED 


;BUMP COUN 
sCONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS wa OK 


RAP CS$EROF 
«WORD 501 
-WORD SFIERR 
«WORD SFIMSG 


s;SET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


{OES EEE EEE EEE EEE EEE EE EEE EEE EE SEES EEEEEEEEE EEE EE ESSE SEES EEE ES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FKP SEES SESS SESS SEES ESSE SESE KEKE ESSE ESSE EEE EEE EEESEEESEEESE 


JSR PC,WRTCHR 
BCS 15$ 

INC 4 ty LG 
MOV 


Ri 
ERRHRD ERRNO, WRTMSG , SF IMSG 


sISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 


i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC he 


FFSSSSSSSSSES SESS SESE SSS SESS SESS SESE SESS SESE SESS CESSES EEE EEE EEE 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FESS SSS SSSSES SESS S ESSE SSS SESS SESS SSS ESSE SESE SER ESESEEESEES 


15$: CKLOOP 

JSR PC ,REWIND 

BCS 30$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T25RWN,PKTSSR 
30$: CKLOOP 


C#ERHRD 

MAORO S02 
-WORD WRTMSG 
-WORD SFIMSG 
TRAP Cs$CLP1 

s;CALL_TAPE REWIND COMMAND 

3BR, IF NO PROBLEM 

tp TSSR 


sBUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP gegen 


. WORD 

-WORD T2SRWN 

«WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLPl 


f ESSEC E SEES EEESSEESES ESSE SESE SEES SESESSESESER SES SSE SESE SEES TEES 
é 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


: 
FFSSSSSSSSSSSSSSSSE SSS SSS SSS SESSESSSSSSESSSS SSS SSE SS SSE SSSSSESSESSESSESSEESE 


MOV T25BFR+6,R1 


sPICK UP XSTO 


SEQ 0181 


N14 


8143 eet ua 


010102 
052702 


104406 
012703 
013737 


012737 
012704 


010337 
013777 


013701 
010102 
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002212 


000400 
003116 


001000 


055100 
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055202 


055200 


132714 
055230 


MOV R1,R2 
BIS #B1T1,R2 
CMP R1,R2 
BEQ 40 


INC FATFLG 
ERRHRD ERRNO, T2SB0T ,EXPREC 


40$: CKLOOP 
MOV $256. ,R3 
MOV FREE. T25RB 


sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 

:BR, IF EQUAL (OK) 


;BUMP COUNT 
; TAPE NOT AT BOT AFTER —- 


FESS SS SSS SSE SESE SSS SSS SES SSS SSSESEKSS ESSE SES SSSESESE SESE EE ESESE 


{WRITE DATA,ACK,CVC=1 COMMAND 


3 
FESS SSS SSE SSS SESS SSS SSE SES SS SEEKS ESSEC SESE SSESESE SESE ETESE 


MOV #140005, T25PK3 
a MOV OT25PK3,R4 
MOV R3,725SZ 
MOV T25CNT , aF 
ADD bi fest 
MOV R4, TSDBC(RS) 
JSR PC; WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R2 
CMP R1,R2 
BEQ 75 
BIT @BIT2,R1 
BNE 120% 
INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
75$: CKLOOP 
INC R3 
CMP 9512. .R3 
BNE 65$ 
BR 125% 
120%: 


CSERHRD 
«WORD 504 
«WORD T2S5B0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP C$CLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA, ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
sLOAD UP RECORD COUNTER IN WRT BUFFER 


eet READY FOR NEXT RECORD 
UE _ COMMAND 

iMATT FOR SSR_TO SET 
TT ENTS 


IF OK 
CK FOR TAPE STATUS ALERT 
iBR IF TSA IS SET (SUSPECT IS EOT) 


COUNT 
iTSSR INCORRECT AFTER WRITE _.,. 


TRAP 

«WORD 505 

-WORD WRTERR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLPl 


;BUMP RECORD SIZE 
1ER SF MORE RECORDS TO WRITE 
ENOUGH RECORDS 


! SCSSSSS SASS SSETESESSSESSSSSSES EES SESS SES SESE ESESEE SEES EEE EE EES 
iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


| Seeccoecesccsccceseesesesesseeeecoceesseseeseeseoeceseesesoesesees 


MOV 


T25BFR+-6,R1 
MOV R1,R2 


sQUICK CHECK FOR EOT SET 
SET UP EXPECTED 


SEQ 0182 


Bis 
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052702 000001 #BITO,R2 sSET_THE EOT BIT XSTO 
2 CMP R1,R2 sIS THE EOT BIT SET IN XSTO 
F SET (GOOD) 


SEQ 0183 


002212 FATFLG 
ERRNO, T25NET , EXPREC : 
CSERDF 
506 
T2SNET 
EXPREC 
125$: 
PPE PETIT Tire r irri irri iti titi ttittitttittitttittt ttt tite ttt ttt ty 
; 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; Sesmaneennenesenbestensenseseneonseneneenenseesnesenensenenneenets 
JSR PC,REWIND ;CALL TAPE pao ay COMMAND 
BCS 130$ ;BR, ie ROBLEM 
MOV SAVE T 
INC 


FATFLG ; BUMP COUNT 
ERRHRD ERRNO, TOSRWN,PKTSSR }REWIND NOT ACCEPTED 


C$ERHRD 
507 


CKLOOP sLOOP IF SELECTED 


C$CLP1 
MOV $7, T250SW ;SET UP DRIVE NUMBER 
MOV #T2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


EFC EE TEESE REESE SESE E EEE SESE SESE EEE EEE EEEE SESE SESE EEE E EEE CREE EE 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
| Poeeenecesseseeceosssssessessssseeessesssseeeesess: teer eee eee eeees 
010752 PC, WRTCHR s ISSUE WAITE CHARACTERISTICS 
140$ ;BR, IF COMMAND ISSUED OK 
002212 INC FATFLG 3B OUNT 
RO,R1 sSAVE CONTENTS OF TSSR 
ERRNO , WRTMSG , SF IMSG s;WRITE CHARACTERISTISC ht 
. WORD 
- WORD 
. WORD 
sSCOPE LOOP 


TRAP 
EXTFEA sCHECK FOR EXTENDED FEATURES 
160$ ;B8R IF SWITCH IS ON 


055211 #200, T25BS1 rod | MISCELLANEOUS CONT/READ STATUS 
055210 ON EXTFEA HW SWITCH) 
) MEM PACKET 


C$CLP1l 


BR, IF NO ERROR 
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TEST 5: 


8248 


8249 0 


8253 


SPACE 
050452 
54 


RECORDS 


012737 


002212 


000007 
055050 


010752 
002212 


000002 
000100 


002212 


140010 
000001 
055200 
000000 
016370 
000002 
100306 


002212 
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055070 


055200 
055202 


SEQ 0184 
MOV RO,R1 sERROR, SAVE TSSR 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T25SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP C$ERHRD 
.WORD 509 
"WORD T25SSR 
"WORD PKTSSR 
150$: | CKLOOP ;LOOP IF SELECTED 
TRAP CS$CLPl 
MOV #7, T25DSW ;SET UP DRIVE 


NUMBER 
MOV ST25PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
5 EERE EEE EEE EE EEE EE EERE Ee Ee EEE EEE EEE EEE EEE EEE EE EE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FEES EEE EEE EEE EEE EE EEE EEE EEE EEE EEE EEE EEE SEES EE EERE EEE EERE EE EE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 160$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG ; OUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP C$ERHRD 
WORD 510 
WORD WRTMSG 
SFIMSG 
160$: CKLOOP sSCOPE LOOP 
TRAP C$CLP1l 
MOV TSSRCRS),R1 3GET he CONTENTS 
BIT #OFL ,R1 sCHECK FOR THE OFFLINE BIT SET 
BNE 170$ ;BR, IF OFFLINE (GOOD) 
INC FATFLG ;BUMP COUNT 
ERRDF ERRNO, T2S5OFL,SFIMSG SOFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSERDF 
-WORD 511 
-WORD  T2S0FL 
-WORD SFIMSG 
170$: CKLOOP sLOOP IF SELECTED 


TRAP C$CLP1 
FFF SESE SESE EES CESSES SESE SESS EES ESSE ESSE SESS ESE EEE EEE EE EE 


; 

sSPACE FORWARD COMMAND IN PLACE 

; 

SPREE TEESE EEE EEE EE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EE 


180$: MOV #140010, T25PK3 ;SPACE FORWARD COMMAND IN PLACE 


MOV $1,T25RB ;NUMBER OF RECORDS TO SPACE 
MOV OT25PK3,R4 iR4 = POINTER TO PACKET 

MOV R4, TSDBCRS) ;ISSUE COMMAND 

JSR PC. WAITF ;WAIT FOR SSR TO SET 

MOV TSSR(RS),R1 ;GET TSSR CONTENTS 

MOV @SSR!ISC!OFL!BIT1!BIT2,R2 ;SET UP EXPECTED 

CMP R1,R2 ARE THEY EQUAL 

BEQ 190$ BR, IF OK ESP. FUNCTION REJECT 
INC FATFLG ;BUMP COUNT 


D1i5 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: 


8302 


SPACE 
050632 
050632 


RECORDS 


104456 
001000 
055442 
012166 


104406 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


003652 
012154 
012737 
012704 


002212 
017322 


056416 
056552 
056510 


016114 
002212 


000007 
055050 
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000017 


055070 


ERRHRD ERRNO, T25TM,PKTSSR ;TSSR INCORRECT AFTER = MOTION CMD 
RAP C$ERHRD 
"WORD S12 
WORD T2S5TM 


“WORD PKTSSR 


190$: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLPl 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10072: 
TRAP CsESUB 
CMP FATFLG,#15. :I1S ERROR COUNT AT 25 
BLO 999$ :BR, IF LESS THAN 25 
9908 JSR PC,CKDROP ;TRY TO DROP THE UNIT 


3° 
: 
a S, SUBTEST 2 


i VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH 

;THE CLEAR VOLUME CHECK (CVC) BIT _—— IS REJECTED IF 

;THE VOLUME CKECK CVCK) FLAG IS SET 

3 

3 

8 

: BGNSUB p> >>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 
TS.2: 


TRAP C$BSUB 


JSR PC, T2SREST 3SET COMMAND PACKET 
JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 
JSR PC, T2SRT2 sSET UP OTHER COMMAND PACKET 


FFE EEE EEE EEE SEES EE ES EEE EEE EEE EEE EEE EERE EEE EE EEE EEE EEE EEE ES 
; 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

3 

FEE EEE SEES EES SEES SE EE EE EEE EEE EEE EEE EE EE EE 


JSR PC,SOFINIT 


:D0 INITIAL 176 ON CONTROLLER 
BCS 103 :BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERRDF | ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP = C$ERDF 
.WORD 513 
"WORD SFIERR 
"WORD SFIMSG 
10$: MOV $7, T25DSW ;SET UP DRIVE NUMBER 


MOV OT2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
f EEC EEE SESE SEES EEE EEE EEE EEE EEE EEE EEE EEE EE EEE EE EEE EEE EEE EEE EE 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FESS SESS EEE SEES SEES ESSERE ESSE ESSERE SESE SESE SEES ESEESEESEEESE SE 


SEQ 0185 





cas 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


010752 
002212 


011136 


002212 


002216 


000200 
000010 
055160 


000000 
016456 


002212 


000007 
055050 
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055211 
055210 


055070 


MO RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG 


PC ,WRTCHR 
15$ 
FATFLG 


SEQ 0186 


s;ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


3B OUNT 
; SAVE CONTENTS OF TSSR 
;WRITE CHARACTERTSTISC et 


C$ERHRD 
"MORO 514 
-WORD WRTMSG 
«WORD SFIMSG 


SEERA EEE EEE EEE EEE EEE EE EEE EEE EEE EEE EEE EE EES EERE EE EE ETE EEE E 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FESS EEE EEE, CEES EEE CERES EEE EERE REE EEE EEE ESE EES 


15$; CKLOOP 


30$: CKLOOP 
140$: TST 


150$: 


MOV 


PC ,REWIND 
30$ 
RO,R1 


FATFLG 
ERRNO, T2SRWN,PIKTSSR 


EXTFEA 
160$ 


#7, T2SDSW 
ST2SPACKET ,R4 


TFLG 
ERRNO, T25SSR,PKTSSR 


TRAP C$CLP1 
;CALL Mga py COMMAND 


;BR, ROBLEM 
;SAVE TSSR 


s;BUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP tte 


. WORD 5 
-WORD T2SRWN 
-WORD PKTSSR 


;LOOP IF SELECTED 
C$CL 


Pi 
sCHECK FOR aN ge FEATURES SW SWITCH 
;BR IF SWITCH IS ON 


;WRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SEL ECTION BIT {TURN ON EXTFEA HW SWITCH) 
;WRITE SUBSYS MEM PACKET 

UE COMMAND 
SR 
PF NO ERROR 
;ERROR, SAVE TSSR 
;BUMP COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 


-WORD 516 

-WORD T2SSSR 

-WORD  PKTSSR 
;LOOP IF SELECTED 

TRAP C$CLP1 


;SET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


SERS E SEER ESE A EREE SEES EEEEEEEEEEEESEEESREEREEEES OREO SEES SESE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FESS SEES SEES SESS SEES SESE KEES SEE ESE EEE SEEKS SEE EEE EE EEEE 


ae 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


8400 
8401 
8402 
8406 
8407 


012737 


0107S2 
002212 


000002 
000100 


002212 


100410 
00000 

055200 
000000 
016370 
000002 
100306 


- 


002212 


002212 
017322 
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055200 
055202 


000017 


160$: 


170$: 


CKLOOP 


PC,WRTCHR 

160$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


TSSRCRS),R1 
#OFL ,R1 
170$ 


FATFLG 
ERRNO, T2SOFL , SFIMSG 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


s;BUMP COUNT 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC hn 


;SCOPE LOOP 
TRAP C$CLP1l 
;GET TSSR CONTENTS 
;CHECK FOR THE OFFLINE BIT SET 
;BR, IF OFFLINE (GOOD) 


;BUMP COUNT 
SOFF LINE SHOULD HAVE ae > CO tor 


TWORO 518 
«WORD T2SO0FL 
«WORD SFIMSG 


;LOOP IF SELECTED 
TRAP C$CLP1 


5 ERE EEE EERE EERE EERE EERE EEE EE EEE EER EE REESE ERESE SEES ERE SESE EE EE EEE 
; 
;SPACE REVERSE COMMAND IN PLACE 


3 
FEES SEE EEE ES EES EEE ESSE SEE ESE EEE ESTEE EEE ESSEC SEEEESEESE SESE 


180$: 


190$: 


999%: 


3° 


#100410, T25PK3 
% SRB 


TSSRCRS 


FATFLG 
ERRNO, T25TM,PKTSSR 


FATFLG,#15. 
999% 
PC ,CKDROP 


3 
sTEST 5S, SUBTEST 3 


R5),R1 
@SSR!SC!OFL!BITI!BIT2,R2° 
Ri R2 


sSPACE REVERSE COMMAND IN PLACE 
sNUMBER OF RECORDS TO SPACE 
;R4 = POINTER TO PACKET 
ISSUE COMMAND 
sWAIT FOR SSR TO SET 
T TSSR_ CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK ESP. FUNCTION REJECT 


;BUMP COUNT 
iTSSR INCORRECT AFTER ™= ores CMD 


gigwes 
TWORO 519 
«WORD T25TM 
-WORD  PKTSSR 


sLOOP IF SELECTED 
TRAP C$CLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L100 


TRAP CS$ESUB 
sIS ERROR COUNT AT 25 
BR IF LESS THAN 25 
Y TO DROP THE UNIT 


SEQ 0187 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


8449 
8450 
8451 

Se 


S56 051262 


051274 


051332 


051362 
051362 


004737 
103407 
005237 
010001 


104455 
001010 
003652 
012154 
013737 
012704 


004737 
103407 
005237 
010001 


104456 
001011 


005056 
012154 


104406 


016114 
002212 


002172 
0SS050 


010752 
002212 
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055070 


i VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
sRECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 
; 

; 

; 

R= 


BGNSUB y>>>>>>>>>>>> at: SUBTEST >>>>>>>>>>>> 
TRAP C$BSUB 

JSR PC, T25SREST ;SET COMMAND PACKET 

JSR PC, T25SRT2 ;SET UP OTHER COMMAND PACKET 

JSR PC, T25RT3 3SET UP OTHER COMMAND PACKET 


SERRE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE ESET E EEE RE RETO EE ESSE 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


° 
FEES SSE EEE EEE KEE EEE EERE KEKE EEE EEE EEE EERE SESE EEE ERE EE SESE 


JSR PC, SOF INIT ;D0 INITIALIZE ON CONTROLLER 

BCS 103 ;B8R IF INIT WAS OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG }FATAL ERROR TSSR WAS NOT OK 

TRAP  C$ERDF 
"ORD 520 
"WORD SFIERR 
"WORD SFIMSG 
10$: MOV UNITN, T25DSW ;SET UP DRIVE NUMBER 


MOV OT2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
SERRE ETERS EEE EE EEE EEE EEE EERE EEE E EE EEE EEE EERE TEES SEE EEE E ESE EE EE 
; 
s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


i 
FEES ESSE SESE SEES SEES KEES EEE EEE EEE ESSERE EEE SESE EEE 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 15% BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 i SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG s;sWRITE CHARACTERISTISC ee 

C$ERHRD 

"WORD S21 
«WORD WRTMSG 
-WORD SFIMSG 


SERS EEE ESTE EE EEE SESE SEER ER EEEEEEEES SEES CESSES SEES SESE SEES 
; 

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

{PCE EEE EERE ESSE EEE EEE SEE EERES ESSERE ESSE SEER ERE SESE EERE ES 


15$: CKLOOP 
TRAP CSCLPl 


SEQ 0188 


H1iS 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


8501 
8502 
8503 


8504 
8508 


8552 


051410 
051410 


6 
051412 


004737 
103407 


010001 
005237 
104456 
001012 
056205 
012166 
104406 


013701 


104406 
012737 


012737 
012704 


011136 


002212 


055100 
000002 


002212 


000001 
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055202 


JSR PC ,REWIND 
BCS 30$ 

MOV RO,R1 

INC FATF 


FLG 
ERRHRD ERRNO, T2SRWN,PKTSSR 


30$: CKLOOP 


#CALL TAPE REWIND COMMAND 


3 COUNT 
;REWIND NOT ACCEPTED 
TRAP S _— 


FEES EEE KEKE EEE EEE EEE EEE EEE EEE EEE EES EEE EEE SEER EE EEE EERE EES EEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
FEES EEE EERE EEE EEK EEE SEEKS EEE EEE EEE EEE EEE EERSTE 


MOV T25BFR-6,R1 
MOV R1,R2 

BIS #BIT1,R2 
CMP R1,R2 

BEQ 40$ 

INC 


FATFLG 
ERRHRD ERRNO, T25B0T ,EXPREC 


40$: CKLOOP 


MOV #000001, T25RB 


. WORD 2 
-WORD T2SRWN 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP C$CLP1l 

sPICK UP XSTO 

sSET UP_EXPECTED 

;SET BOT BIT _IN EXPECTED 

;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 

s;BUMP COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP C$ERHRD 
«WORD 523 
-WORD T2SB0T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP C$CLP1l 
sNUMBER OF RECORDS TO SPACE OVER 


FFE EEE EEE EEE SESE EEE EEE EEE EEE EEE SEE EEE EEE EEE SEEK EEESE EEE 


; SPACE FORWARD, ACK,CVC=1 COMMAND 


; 
FEES ESES EEE ESESEESE EERE EEE EEEESES 


MOV #140010, MS ae 
ass MOV OT25PK3,R4 

MOV R4, Ms Sa 

JSR PC, ,WAITF 

MOV TSSR(RS),R1 

MOV #SSR ,R2 

CMP RL R2 

BEQ 75$ 

BIT #BIT2,R1 

BNE 75$ 

INC FATFLG 

ERRHRD ERRNO, T2SWDE ,EXPREC 
75$; CKLOOP 


sSPACE FORWARD, ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
iSET UP EXPECTED 
sARE THEY EQUAL 


IF OK 
;CHECK FOR TAPE STATL> ALERT 
sBR, IF TSA IS SET (SUSPECT IS EOT) 
;BUMP COUNT 


;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
S24 
T2SWOE 
EXPREC 


- WORD 

- WORD 

. WORD 
sLOOP IF SELECTED 


SEQ 0189 


115 


TSV7 - HARDWARE TESTS 1-8 
TEST 5: SPACE RECORDS 


051534 
051536 


051576 


051712 


104406 


013701 


012737 


012737 


055100 
000002 


002212 


056552 
000401 


140001 
003116 
055200 


000000 
016370 
000002 
000200 


002212 


131224 
000001 


002212 
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055206 


055200 
055202 


120$: 


FEES EEE EEE ESSE SEE EEE EEE EEE EEE SEES EEE EEE SESE EEE EKER EEE EEE ESE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
FEES EEE EEE EERE EEE EEE EEE EEE EEE EKER EEE SESE EEE EEE EEE EES 


125$: 


CKLOOP 


JSR 
MOV 


T25BFR+6,R1 
R1,R2 
#BIT1,R2 
R1,R2 


FATFLG 
ERRNO, T25BNC , EXPREC 


PC, T25RT3 
#257.,T25SZ 


TRAP C$CLP1l 

sQUICK CHECK FOR BOT SET 

;SET UP_EXPECTED 

;CLEAR THE BOT BIT (XSTO) 

sIS THE EOT BIT SET IN XSTO 

;BR, IF SET (GOOD) 

;BUMP COUNT 

;BOT NOT CLEARED AFTER acy" FROM BOT 

C$ERHRD 

TWORO S25 
-WORD T2SBNC 
-WORD EXPREC 
TRAP Cs$CLP1 


sCLEAN UP PACKET 
;SET THE CORRECT SIZE UP 


5 EERE ERE EERE EERE EERE REESE EERE EERE SEE EERE EEE SESE E EE ESSE EEE SEE EEE EE 
i 
sREAD DATA COMMAND IN PLACE 


: 
FREESE ESSE EEE SESE EEE KEKE EEE EKER EEE EEE EERESEEES 


ERRHRD 


2 a yg T25PK3 


PC,WA 
TSSRCRS).RL 
eS 


190$ 
FATFLG 
ERRNO, RDERR ,PKTSSR 


@FREE ,R1 
#1,Re 
R1,R2 


FATFLG 
ERRNO , T2SWNG , EXPREC 


sREAD DATA COMMAND IN PLACE 
;READ BUFFER ADDRESS TO PACKET 
;R4 = ga TO PACKET 


sARE THEY EQUAL 
BR, IF OK ESP. FUNCTION REJECT 


sBUMP COUNT 
3TSSR INCORRECT AFTER = DATA CMD 


RAP C$ERHRD 

-WORD 526 

-WORD RDERR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP C$CLP1 


sGET FIRST WORD FROM BUFFER 
sSET UP EXPECTED 

sWAS RECORD NUMBERED 1 

BR, IF CORRECT RECORD 
sBUMP COUNT 


sSHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
-WORD 527 
-WORD T2SWNG 


SEQ 0190 





J1i5 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


051714 


015614 
104406 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


00 
012154 
013737 


012704 
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002212 000017 


017322 


056416 
056510 
056552 


016114 
002212 


002172 
055050 


010752 
002212 


055070 


«WORD EXPREC 
200$: CKLOOP 
TRAP C$CLPl 


ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10074: 
TRAP C$ESUB 


CMP FATFLG,#15. 31S ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


9995: 

3? 

3 

“oma 5, SUBTEST 4 


; VERIFIES THAT SPACE a eek REVERSE CAN SPACE BACK 
;OVER THE FIRST RECORD ON TAPE. 

; 

H 

s< 


BGNSUB p> >>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
“TRAP C$B8SUB 

JSR PC, T25REST ;SET COMMAND PACKET 

JSR PC,T25SRT2 :SET UP OTHER COMMAND PACKET 

JSR PC, T25SRT3 sSET UP OTHER COMMAND PACKET 


pREEREE EEE EEE EEE EERE SEES EE EEE ESSE EEE EEE SEE SERRE SEES E TES ESE EE ES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FEES SEES SEEKS SESE SEEK EEE SEE SESE KEES EEE KEE EEE ESE 


JSR PC, SOFINIT :00 PATNI ON CONTROLLER 

BCS 20$ sBR IF INIT WAS OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP C$ERDF 
-WORD 528 
-WORD SFIERR 
«WORD SFIMSG 

20$: MOV UNITN, T25DSW sSET UP DRIVE NUMBER 
MOV ST2S5PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


SEES EEE EEE EER EEE EE SESERER EERE EEE SESESESE SESE TERE SESE EEE 
; 
s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


a 
FFF SESS SESE SS SESS SSS SESS SESS SEES EERE EE SESS SS ESSERE SEEKS ESESE 


JSR PC,WRTCHR sISSUE WRITE gery TY a 
BCS 25$ sBR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP 


COUNT 
MOV RO,R1 } SAVE CONTENTS OF TSSR 


SEQ 0191 


K1i5 


TSV7 - HARDWARE TESTS 1-8 
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8658 


052026 
052026 


104456 
001021 
005056 
012154 
104406 


eeerre 011136 


005237 002212 


013701 055100 
010102 
052702 000002 
020102 
001406 
005237 002212 


104456 
001023 
055375 
015614 
104406 


012703 000001 
004737 010560 
103410 

016501 000002 
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ERRHRD ERRNO,WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC reuse 


25$: CKLOOP sLOOP IF SELECTED 
TRAP 


SEE EEE EERE E EERE EEE EEE TEESE SECRET ESE SEES ERTS EE EEE 
; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FEES ESSE EEE EEE KEKE EEE SESE EEE SEES ESSE EEE KEE EEE EEE EEE EEE SE 


JSR PC ,REWIND sCALL_ TAPE pe ty COMMAND 

BCS 30$ ;BR, IF NO PROBLEM 

MOV RO,R1 iSAVE TSSR 

INC FATFLG s;BUMP COUNT 

ERRHRD ERRNO, T2SRWN,PKTSSR ; REWIND NOT ACCEPTED _— 
. WORD 
. WORD 
. WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


SERRE EEE EEE ESSE EERE E EEE EEEE SESE EE EERE ESSE SEES SES EE EERE TEES EES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
FESS SESE SEES SESE ESSE SESE ESSE E SEES EEE SESE SESE EE 


MOV ae R1 sPICK UP XSTO 

MOV R1,R sSET UP EXPECTED 

BIS eeiri. R2 iSET BOT BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 404 :BR, IF EQUAL (OK) 

INC TFLG ;BUMP COUNT 

ERRHRD ERRNO. T2SB0T ,EXPREC ; TAPE NOT AT BOT AFTER ay 
TWORO 
. WORD 
. WORD 

40$: CKLOOP sLOOP IF SELECTED 

TRAP 


FEES SSE SSS SS SSS SSS ESSE ESA SKE ESSE SESS SSE ESSE SERS EEE EEE EE EEE 


VISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 


. 
fFSSSSSSS SSS SESS S SS SSS SSS SESS SSE SESS SESE ESS SSS SESS SSE SS ESE SE EEES 


C$ERHRD 


S29 
WRTMSG 
SFIMSG 


C$CLP1 


C$CLP1 


C$CLP1l 


MOV #000001 ,R3 ;NUMBER OF RECORDS TO SPACE FORWARD 
JSR PC, SPACE ;CALL SPACE COMMAND 

BCS 50$ ;CHECK FOR ERROR 

MOV TSSRCRS),RI :GET TSSR CONTENTS 


SEQ 0192 


L 25 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


8706 
8710 


052140 
onet83 


005237 
104456 
001024 
055315 
012222 


104406 
012737 


012737 
012704 


012703 
013737 


012737 


002212 
000001 


140410 
055200 


000000 
016370 
000002 
000200 


002212 


000400 
003116 
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055202 


055200 


055202 


055200 


50$: 


INC FATFLG 
ERRHRD ERRNO, T2SWDE , SFFMSG 


CKLOOP 
MOV #1, T2SRB 


;BUMP COUNT 
;SPACE FORWARD FAILED 


sLOOP IF SELECTED 


TRAP C$CLP1 
sNUMBER OF RECORDS TO SPACE OVER 


sR EEE SEES EEE EEE EEE EE EEE EEE EEEEEESESEEEEEEESESESC SESE SE EEEE SS 
; 
sSPACE REVERSE ,ACK,CVC=1 COMMAND 


3 
FESS SESE SEEKS EEE EEE EEE EES EE EERE SEE ESSERE EEE EEE SEER EE EEEEE 


65$: 


75$: 


1203: 


MOV #140410, T25PK3 


MOV OT25PK3.R4 
MOV R4, TSOGLRS2 
JSR P 

MOV TSSRCRS), Rl 
MOV #SSR,R2 
CMP R1,R2 

BEQ 753 


INC FATFLG 
ERRHRD ERRNO, T2SWDE ,PKTSSR 


$256. ,R3 
MOV FREE, T25RB 


sSPACE REVERSE ,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

sSET UP EXPECTED 
THEY EQUAL 


3; ARE 

3;BR, IF OK 

sBUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP C$ERHRD 
-WORD 533 
.WORD T2SWDE 


-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP C$CLP1l 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


{POSSESSES EEEEEEEESEEEEEEEE SESE EEE EESSESESSESS ESSE EEE SEES SEES ES 
; 
sREAD DATA,ACK,CVC=1 COMMAND 


3 
FESSSSSSSSSSSSS SSS SESS SESSESSESSS SSE SESE SES SESS SSS SESSSESESSESES ESSE 


165$: 


MOV #140001 , T25PK3 


MOV TSSRCRS),RI 
@SSR,R2 
R1,R2 
BEQ 1708 
INC FLG 
ERRHRD ERRND RDERR.PKTSSR 


sREAD DATA, x CvC=1 COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


sSET UP EXPECTED 
sARE THEY EQUAL 
iB IF OK 


OUNT ; 
iTSSR INCORRECT AFTER READ DATA 
bo als 


WOR 
-WORD RDERR 


SEQ 0193 


M15 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


012166 


013737 


004737 
103427 


012727 
000000 


130560 
000000 


002212 


002212 
017322 


016114 


000250 
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000017 


055226 
055226 
055232 


170$: CKLOOP 
MOV @FREE ,R1 
#0 ,R2 
CMP R1,R2 


INC FLG 
ERRHRD ERRNO » T2SWNG , EXPREC 


200$: CKLOOP 


«WORD PKTSSR 
sLOOP IF SELECTED 
AP C$CLP1 


TR 
cst WORD FROM BUFFER 
;SET UP up éfbec 


;WAS RECORD NURBERED 1 
;BR, IF CORRECT RECORD 
sBUMP C 


OUNT 
;SHOULD HAVE BEEN — oa 1 


RAP C$ERHRD 
«WORD 535 
«WORD T2SWNG 
«WORD EXPREC 


TRAP C$CLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L1007S: 


TRAP CsESUB 
:I1S ERROR COUNT AT 25 
3;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


3 >>>>>>>>>>>> Cees Serene >>>>>>>>>>>> 


TRAP C$BSUB 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sHOLD NUMBER OF RECORDS 
sACTUAL NUMBER OF RECORDS ON TAPE 


ENDSUB 
CMP FATFLG, #15. 
BLO 999$ 
JSR PC, CKDROP 
9993: 
3 — 
:TEST 5, SUBTEST S 
VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
;MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE. 
;WHICH EVER IS LESS. 
3 
Hy 
: 
: - 
BGNSUB 
JSR PC, T2SREST 
JSR PC: TOSRT2 
JSR PC. T25SRT3 
MOV TOSCNT , T2SCN2 
SUB #2, T2SCN2 
MOV T25CNT, TOSDLY 


sSET UP REWIND DELAY COUNTER 


{FORESEES EESESEEEESEERSSEEESE EEE SEESSEEEES ESSE SESE SERRE SEES EE EES 
}ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
SFSSSSSSSSSSSSSSESS SSS SS SSS SS SSSS SESS ESSE SS SSESESSE SSS SESS SS SSE SESE SSE SESE 


10$: JSR PC, SOFINIT 
BCS 20% 
DELAY 250 


sD0 INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 
sWAIT ABOUT .25 SECONDS 


SEQ 0194 


MOV #250, (PC)+ 
-WORDB O 


Ni5 
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TEST 5: SPACE RECORDS 
052456 013727 002116 MOV LSOLY,(PC)- 
052462 000000 . WORD 
005367 177772 bEC -6¢PC) 
052470 001375 BNE 
052472 005367 177756 2ec “23¢°C) 
052476 001367 NE -20 
8806 052500 005337 055232 DEC T25DLY ;DEC COUNTER 
8807 052504 001356 BNE 103 ;BR, IF MORE LOOPS REQUIRED 
8808 052506 016501 000002 MOV TSSRCRS), R1 ;CONTENTS OF TSSR REGISTER 
8809 052512 005237 002212 INC ATFL ;BUMP COUNT 
8813 052516 ERRDF ERRAND: SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
052516 104455 TRAP = C$ERDF 
052520 001030 .WORD 536 
052522 003652 "WORD SFIERR 
052524 012154 "WORD SFIMSG 
8814 052526 208: 
8815 052526 013737 002172 055070 MOV UNITN, T25DSW ;SET UP UNIT NUMBER 
8816 052534 012704 055050 MOV OT2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
oie FESS SSSSSSESSESSES SES SESS SES SESESSES SES SES SESS SSE SSS SSSR S SESE ESSE ESEEE 
3 
8820 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
882 HY 
ease FFSSSSSSESSSSSSESSSSES SSS SSS ESSE SESS SKS SESS SSES SSE SSS SESS SES SESSES SERS ESSEC ESE 
Baca 052540 004737 010752 JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
8825 052544 103407 BCS 253 BR. IF COMMAND ISSUED OK 
8826 052546 005237 002212 INC FATELG OUNT 
8830 052552 010001 MOV RO,R1 }SAVE CONTENTS OF TSSR ; 
8831 052554 ERRHRD ERRNO,WRTMSG, SFIMSG :WRITE CHARACTERISTISC FAILED 
052554 1 C$ERHRD 
052556 001031 THORD 537 
052560 005056 "WORD  WRTMSG 
052562 012154 "WORD SFIMSG 
8832 052564 25%: CKLOOP ;LOOP IF SELECTED 
nit 052564 104406 TRAP  CSCLP1 
oeee FFSSSSSSSSSSSSSSSSSS SSS SS SSS SS SSS SSSSSESS SSS SSS SESS SS SESS SSS SSS SS ESSE 
3 
8836 ;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
2 
oes PEEK EERE EEE EET EEE EEE EKER EEE EERE EEK ERE EEE EET EEK EKER EAE ER EEE 
8840 03: @04737 011136 JSR PC,REWIND :CALL TAPE REWIND COMMAND 
8841 O%-s72 103407 BCS 304 38R, IF NO PROBLEM 
052576 610001 MOV RO,R1 ;SAVE TSSR 
8843 052576 005237 002212 INC FATFLG 38 
8847 052602 ERRHRD ERRNO, T25RWN,PKTSSR ;REWIND NOT ACCEPTED 
052602 1 TRAP CSERHRD 
052604 001032 538 
052606 WORD T2SRWN 
052610 012166 WORD PKTSSR 
6848 052612 30%:  CKLOOP ;LOOP IF SELECTED 
052612 TRAP = C$CLP 21 
8849 052614 013701 055226 MOV T2SCN2,R1 ;NUMBER OF RECORDS ON TAPE 
052620 012702 177776 MOV 065534. ,R2 ;MAX IT CAN SPACE OVER 
8851 052624 020201 CMP R2,R1 ;WHICH VALUE CAN WE USE 


Bi6 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: 


SPACE 
052626 


052772 


053000 
053006 
053012 
053016 
053022 
053026 


RECORDS 
003002 
010103 
000401 
010203 
162703 
010337 


012737 
012704 


013737 
0465 


104406 
012703 
013737 


012737 


000001 
055202 


140010 
055200 


055226 
000000 
016370 
000002 
000200 


000250 
002116 
177772 
177756 
055232 
002212 


010000 
003116 
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055200 


055232 


055202 


055200 


46$: 
47$: 


65$: 


67$: 


75$: 


#140010, T25PK3 
ST2SPK3 ,R4 


T2S5CN2, T2SDLY 


T2SDLY 

67$ 

FATFLG 

ERRNO, T25WDE , PKTSSR 


$4096. ,R3 
FREE, T2SRB 


;BR, IF @ WRITTEN > 64K 
;# WRITTEN CAN BE USED 


sMOVE ON 
; USE ~ NUMBER 
;D0N‘'T GO ALL 


SEQ 0196 


sNUMBER OF RECORDS “70 TO SPACE OVER 
SERRE EEE EEE EEE REESE ES EE EE EEE EEE EEE EEE EEE EEE EE EEE EEE EEE EES 
; SPACE FORWARD ,ACK,CVC=1 COMMAND 
| Poeescerereeseeseeescesessessessesesseeseeesesesssesseseseseseesss 


sSPACE FORWARD,ACK,CVC=1 COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


sNUMBER OF RECORDS USED AS DELAY COUNTER 


s ISSUE COMMAND 

sWAIT FOR SSR _TO SET 
;GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 

;BR, IF OK 

sDELAY .25 SECONDS 


sBUMP DOWN COUNTE 


R 
sBR, IF a! AT END OF DELAY 


38 OUN 
:TSSR INCORRECT AFTER READ DATA 


sLOOP IF SELECTED 
sRECORD SIZE 


TRAP 
sSTARTING READ BUFFER ADDRESS 


fe EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE TEREST EE EEE EEE EEE EEE 
; 
sREAD DATA,ACK COMMAND 


i 
§ FEES SESE SESE SEE ESSE SESE SESE ESE EEE SEEKS SEE EEE SESE SEES ESE SESE EE EES 


165$: 


#100001, a 
cee 3,R 


R3,T25S 
R4, Ms Si 
PC ,WAITF 
TSSR(RS),R1 


sREAD DATA,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


sISSUE COMMAND 
;sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 


#250, (PC)+ 
L$DLY,(PC)- 
-6(PC) 

-4 


“22¢PC) 
-20 


C$CLP1 
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SEQ 0197 
TEST 5S: SPACE RECORDS 

8899 053032 012702 000200 MOV #SSR ,R2 ;SET UP EXPECTED 

8900 053036 020102 CMP R1,R2 ;ARE THEY EQUAL 

8901 053040 001411 BEQ 170$ ;BR, IF OK 

8902 053042 032701 000004 BIT #BIT2,R1 ; CHECK FOR TAPE STATUS ALERT 

8903 053046 001006 BNE 170$ ;1F SET ALL IS WELL 

8904 053050 005237 002212 INC FATFLG ;BUMP COUNT 

8908 053054 ERRHRD ERRNO,RDERR,PKTSSR 3TSSR INCORRECT AFTER READ DATA 
053054 104456 TRAP CSERHRD 
053056 001034 . WORD 540 
053060 005206 . WORD RDERR 
053062 012166 .WORD PKTSSR 

8909 053064 170$: CKLOOP ;LOOP IF SELECTED 
053064 104406 TRAP C$CLPl 

8910 053066 017701 130024 MCV @FREE ,R1 ;GET FIRST WORD FROM BUFFER 

8911 053072 013702 055226 MOV T25CN2,R2 SET UP EXPECTED 

8912 053076 162702 000001 SUB #1,R2 3; SHOULD be LAST RECORD 

8913 053102 020102 CMP R1,R2 ;WAS RECORD NUMBERED R3 

8914 053104 001406 BEQ 200$ ;BR, IF CORRECT RECORD 

8915 053106 005237 002212 INC FATFLG ;BUMP COUNT 

8919 053112 ERRHRD ERRNO, T2SWNG, EXPREC ;SHOULD HAVE BEEN RECORD NUMBER 1 
053112 104456 TRAP C$ERHRD 
053114 001035 . WORD 541 
053116 055605 . WORD T25WNG 
053120 015614 . WORD EXPREC 

8920 053122 200$: CKLOOP 
053122 104406 TRAP C$CLP1 

8921 053124 ENDSUB }>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
053124 L10076: 
053124 104403 TRAP CsESUB 

8922 053126 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 

8923 053134 103402 BLO 999$ ;BR, IF LESS THAN 25 

8924 053136 004737 017322 JSR PC, CKDROP ;TRY TO DROP THE UNIT 

8925 053142 999$: 

8926 

8927 3° 

8928 3 

444 s TEST 5, SUBTEST 6 

8931 ; VERIFIES THAT SPACE RECORDS re CAN SPACE A 

8932 sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 

8933 sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 

8934 ;WHICH EVER IS LESS. 

8935 3 

8936 3 

8937 8 

8938 s- 

8939 053142 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
053142 TS.6: 
053142 104402 TRAP C$8SUB 

8940 053144 004737 056416 JSR PC, T25SREST sSET COMMAND PACKET 

8941 053150 013737 055230 055226 MOV T2SCNT , TOSCN2 ;SET UP RECORD COUNTER 

8942 053156 004737 056510 JSR PC,T T25RT2 3SET UP OTHER COMMAND PACKET 

8943 053162 004737 056552 JSR PC, T25RT3 sSET UP OTHER COMMAND PACKET 

son 053166 013737 055230 055232 MOV T2SCNT, T25DLY ;SET UP REWIND DELAY COUNTER 

8946 Pitti ti tii iiiiii iii ti titi ti iiii tii tii i iii ii iir iii irii rir iri rir ir 


8947 3 


D16 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


Se 053174 
053200 


053272 


053316 


004737 
103427 


012727 


012154 
013737 


012704 


004737 
103407 


010001 
005237 


016114 


000250 
002116 
177772 
177756 
055232 


000002 
002212 


002172 
055050 


010752 
002212 


011136 


002212 
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055070 


SEQ 0198 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
‘ 
FEES SEES EEK SESE SEES EEE SEES SEES EEE EEE ESSE SESE EEE ESTEE EEE EEE EES 
10$: JSR PC, SOF INIT ;D0 INITIALIZE ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
DELAY 250 ;WAIT ABOUT .25 SECONDS 
. WORD 
MOV  siccton 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC T2S0LY ;DEC COUNTER 
BNE 10$ ;BR, IF MORE LOOPS REQUIRED 
MOV stereo R1 CONTENTS OF TSSR REGISTER 
INC ATFLG ;BUMP COUNT 
ERRDF ERRNO. SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP C$ERDF 
-WORD 542 
-WORD SFIERR 
WORD SFIMSG 
20$: MOV UNITN, T25DSW ;SET UP UNIT NUMBER 
MOV ST2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


sR REESE SEES E SESE EERE SEE EEES SEES SEES EES SE EERE S ESET EEE ES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FFE SSS SESE SEEKS ESSE SESS ESE ESE SKE SESE EEEEE ESS 


JSR PC,WRTCHR +S . * WRITE gery Yh na Vac 

BCS 25$ BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 i SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC Fans 
. WORD 
. WORD 
- WORD 

25$: CKLOOP sLOOP IF SELECTED 

TRAP 


{FREER EEE EEE EEE EER EEE EEE EE EEE SESE EE EEE EEE SEES EEE SEES EEE EEE EEE EEE 
; 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
FESS SESS SSS ESS SEES SESE SESS SSS SESS SESS ESSE SES SSS SESE EERE SES 


JSR PC ,REWIND sCALL_TAPE une COMMAND 
BCS 30$ sBR, a! NO PROBLEM 

MOV RO,R1 iSAVE TSS 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T2SRWN,PKTSSR ; REWIND NOT ACCEPTED 


CSERHRD 
543 
WRTMSG 
SFIMSG 


C$CLP1 


E16 


TSV7 - HARDWARE TESTS 1-8 
TEST S: SPACE RECORDS 


os 
053510 


013701 


000401 
010203 
010337 


012737 


012727 
000000 
013727 
000000 
005367 


055100 
000002 


002212 


055226 
177776 


055202 


140010 
055200 
000000 


226 
f°) 


000250 
002116 
177772 
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055200 


055232 





30$: 


CKLOOP 


;LOOP IF SELECTED 


SRE EEE EEE EEE SESE E EEE SEES SEER EE EEEEE SESE RE EERE REESE ESSE ES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


5 
FEES ESE EEE SEES SEES EEE EEE ERE ESSE SEEKS EE ERE EEE EEE ESESE EES 


40$: 


478: 


48$: 


T25BFR+-6,R1 
R1,R2 
epit, R2 


ak 
FATFLG 
ERRNO , T25B0T , EXPREC 


T2S5CN2,R1 
#65534. ,R2 


R3, T25RB 


pi pele hig o Tass 


TSSR(RS),R1 
#SSR ,R2 
R1,R2 


SO$ 
250 


sPICK UP XSTO 

sSET UP EXPECTED 

eee BOT BIT IN EXPECTED 
S_ EXP = REC'D 

:BR, IF EQUAL (OK) 

:BUMP COUN 


; TAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 
NUMBER OF RECORDS ON TAPE 


;@ WRITTEN MEAN BE USED 
sMOVE ON 
;USE MAX NUMBER 


SEQ 0199 


C$ERHRD 
544 


T25SRWN 
PKTSSR 


C$CLP1l 


C$ERHRD 
545 
T25B0T 
EXPREC 


C$CLP1 


;NUMBER OF RECORDS TO SPACE OVER 
FEES EES ESSE SEES SSE SEES SESE KEES SESE KSEE SESS ESSE ESSE ESE SESESE 
ISPACE FORWARD,ACK,CVC=1 COMMAND 
TT Te 


3 SPACE iw ACK ,CVC=1 COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
sSET_UP DELAY COUNTER 


ONT 
sSET Up EXPECTED 
sARE THEY EQUAL 


;BR, IF OK 
;WAIT .25 SECONDS 


#250, (PC )+ 
L$DLY,(PC)- 
-6(PC) 


F 16 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


9076 


053514 


053572 
053576 


9078 053704 
9082 


053720 
053720 


001375 
005367 


010337 


012737 
012704 


177756 
055232 
002212 


055226 
177776 


000001 
055202 


140410 
055200 


000000 
055226 
016370 


000002 
000200 


000250 
002116 
177772 
177756 
055232 
002212 
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055200 


055232 


DEC T2SOLY 
BNE 48$ 
INC FATFLG 
ERRHRD ERRNO, T2SWDE ,EXPREC 
SO$: CKLOOP 
MOV T2SCN2,R1 
MOV #65534. ,R 
CMP Re, 
BGT SS+ 
MOV R1,R3 
BR O$ 
S5$: MOV R2,R3 
60$: SUB #1,R3 
MOV R3, T25RB 


SEQ 0200 


FERS ESSE SEES ESSE ESSE SESE SSE SEE SEES ESSERE SESE EEE EEE ESE EEESS 


}SPACE REVERSE, ACK,CVC=1 COMMAND 


3 
FESS SEE EEE EES ESSERE ESSE SESE SESS ESSERE SEES EERE ESE EEE EEE EEE 


MOV #140410, T2SPK3 

MOV OT25PK3,R4 

MOV R4, TSOBCRS 

MOV T25CN2, T2SDOLY 
70$: JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV #@SSR ,R2 

CMP R1,R2 

BEQ 75$ 

DELAY 250 

DEC T2S50LY 

BNE 7 


INC FATFLG 
ERRHRD ERRNO, T2SWDE ,EXPREC 


7S$: CKLOOP 


BNE — 
DEC “22¢PC) 

;DEC THE DELAY COUNTER 

sR IF COUNTER HASN'T EXPIRED 

*TSSR INCORRECT AFTER READ DATA 
TRAP C$ERHRD 
.WORD 546 
"WORD T25WOE 
“WORD EXPREC 

C$CLP1 

;NUMBER OF RECORDS ON "Ee 

iMAX IT CAN SPACE OVER 

;WHICH VALUE CAN WE USE 

;BR, IF @ WRITTEN > 64K 

;@ WRITTEN CAN BE USED 

;USE MAX NUMBER 

;D0N'T GO ALL THE WAY YET 

;NUMBER OF RECORDS TO SPACE OVER 

1 SPACE REVERSE, ACK,CVC=1 COMMAND 

:SET UP R4 WITH PACKET ADDRESS 

;I1SSUE COMMA’ 

;SET UP COUN 

;WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

;SET UP EXPECTED 

: 

3;BR F OK 

eaAtT ABOUT .25 SECONDS 
MOV #250, (PC)- 
. WORD 
MOV L$DLY,(PC)- 
. WORD 
bEC -6(PC) 
BNE ~— 
DEC -22(PC) 
BNE f° 

;BUMP COUNTER DOWN 

sBR TF COUNTER HASN'T EXPIRED 

}TSSR INCORRECT AFTER READ, DATA 

C$ERHRD 

THORD 547 
"wORD T2SWOE 
"WORD EXPREC 

;LOOP IF SELECTED 
TRAP —- C$CLP1 


G16 
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053722 
053726 


012703 
013737 


012737 
012704 


010000 
003116 


127060 
000001 


002212 


002212 
017322 
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055202 


055200 


000017 


MOV 


04096. ,R3 
MOV FREE, T25SRB 


SEQ 0201 


sRECORD SIZE 
;STARTING READ BUFFER ADDRESS 


SEEKS SEES EEE EEE EEE KEE EEE EEE EEE EEE EEE SESE EE EEE EEE EE EEESS 


READ DATA,ACK COMMAND 
H 


FESS EEE EEE SES ESSERE EEE EE ESSERE SEE EEE EEE EERE EERE EEE EEE EES 


MOV #100001 , T25PK3 
165$: MOV #T25PK3,R4 

MOV #177777,RO 

JSR -% FILLMEM 

MOV R3,725SZ 

MOV R4, Ms 

JSR 

MOV TSERCRS), R1 

MOV #SSR ,R2 

CMP R1,R2 

BEQ 170$ 

BIT #BIT2,R1 

BNE 170$ 

INC FATFLG 

ERRHRD ERRNO, RDERR,EXPREC 
170$: CKLOOP 

MOV aFREE,R1 

MOV #1,R2 

CMP R1,R2 

BEQ 200$ 

ERRHRD ERRNO, T2SWNH, EXPREC 
200$: CKLOOP 

ENDSUB 

CMP FATFLG, #15. 

BLO 999$ 

JSR PC ,CKDROP 
999$: 


3° 
é 
ee 5, SUBTEST 7 


;READ DATA,ACK COMMAND 
T UP R4 WITH PACKET ADDRESS 
sSET ALL ONES INTO oe SB REGISTER 
sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
UE COMMAND 


GE 
;SET UP EXPECTED 
;ARE THEY EQUAL 


;BR, IF OK 

; CHECK FOR TAPE STATUS ALERT 

;BR, IF BIT SET 

;BUMP OUNT 

iTSSR INCORRECT AFTER READ DATA 
TRAP -$ERHRD 
-WORD 548 
.WORD RDERR 
WORD EXPREC 


;LOOP IF SELECTED 
C$CLPl 


TRAP 
sGET FIRST WORD FROM BUFFER 
sSET UP EXPECTED 
sWAS RECORD NUMBERED R3 
;BR, IF CORRECT RECORD 
;BUMP COUNT 
; SHOULD HAVE BEEN — 1 


C$ERHRD 
-WORD 549 
-WORD T2SWNH 
-WORD EXPREC 
TRAP C$CLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
Li 


0077: 
TRAP CsEsuB 
31S ERROR COUNT AT 25 
;68R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


: VERIFIES THAT SPACE ce REVERSE ISSUED WHILE 
FUNCTION 


sTAPE IS AT BOT RESULTS IN 


THE 
REJECT ee at 


s;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 


H16 


TSV7 - HARDWARE TESTS 1-8 
TEST S: SPACE RECORDS 


054204 
054210 
054212 


013737 
012704 


004737 
103407 
010001 


016114 
002212 


002172 
0SS050 


010752 
002212 


011136 
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055070 


BGNSUB p>>>>>>>>>>>> SEIN SUBTEST >>>>>>>>>>>> 
: TRAP C$8SUB 

JSR PC, T25REST ;SET COMMAND PACKET 

JSR PC, T2SRT!) 3SET UP OTHER COMMAND PACKET 

JSR PC, T25RT3 3;SET UP OTHER COMMAND PACKET 


5 EERE EE EEE EERE EERE EEE EE EEE EEE EE SEES EEE SEES EE ESESE ESSE SEER SESE SEES 
; 
sISSUVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FEES KEKE EEE EEE EERE EEE EES EKER ERE SEES EEE EE EEE EEE EES E 


JSR PC,SOFINIT ;D0 INITIALIZE ON CONTROLLER 

BCS 208 ;8R IF INIT WAS OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF  €ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
. WORD 
“WORD 
"WORD 

20: MOV UNITN, T25DSW ;SET UP UNIT NUMBER 
MOV T25PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


5 EERE EEEEREEE EEE E EERE REESE EEE SEARS SEES REESE REESE SESE SEES SEES ES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FESS SESE SEES SEEKS SESE SEES ESSE SEAS EEE SESE ESE SESE EAE EES ESE SES 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 2S$ ;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC he 
- WORD 
. WORD 
. WORD 

25$: CKLOOP sLOOP IF SELECTED 

TRAP 


{ERE EERE EERE EERE EE EEE EERE EEE EEE EEE E ERE EERE EEE EEE SEES EEE RE EEE 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FESS SSE EEE KEKE EEE EEE SESE ESE SESE KEKE EEE EEE EERE SE 


JSR PC, REWIND sCALL_ TAPE ny COMMAND 
BCS 30$ ;BR, IF NO PROBLEM 
MOV RO,R1 ;SAVE TSSR 


C$ERDF 
550 


SFIERR 
SFIMSG 


C$CLP1 


SEQ 0202 


116 
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TEST 5: 


9187 
9191 


SPACE 
054214 


013701 


104406 
012737 


012737 
012704 


002212 


055100 
000002 


002212 


000001 


100410 
055200 


000000 
016370 
000002 
100206 


002212 
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055202 


055200 


INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SRWN,PKTSSR :REWIND NOT ACCEPTED =| 
. WORD 
. ‘WORD 
‘WORD 
30$:  CKLOOP ;LOOP IF SELECTED 
TRAP 


SERRATE EEE EE EEE EEE EE EEE EEE EEE EE EE EEE EEE SEER EEE EE EE EEE EES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
SEES EEE EEE EKER EEE EEE EEE EES EEE EEE EEE ESE EES ERE REESE REE EEE EE 


MOV T25BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 ;SET UP_EXPECTED 

BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 ;D0ES EXP = REC'D 

BEQ 40$ ++ IF or. (OK) 

INC FATFLG 

ERRHRD ERRNO, T25B0T ,EXPREC ; TAPE NOT AT BOT AFTER as 
"WORD 
. WORD 
. WORD 

40$: CKLOOP sLOOP IF SELECTED 


MOV #1, T25RB 
FERRER EERE EEE EEE REE EE EEE EEE EE EEE EEE EE EEE SEES EERE REESE EE ES 
; 

;SPACE REVERSE ,ACK COMMAND 


; 
{FESS SEEKS SEES SESE KSEE ESSE EKER EE EEE CERES EES EEE EEE EERE EE EE 


TRAP 
sNUMBER OF RECORDS TO SPACE OVER 


C$ERHRD 
SS2 


T2SRWN 
PKTSSR 


C$CLP1 


C$ERHRD 
553 


T25B80T 
EXPREC 


C$CLP1l 


MOV #100410, 125PK3 ;SPACE REVERSE ,ACK COMMAND 
eal MOV $T25PK3.R :SET UP R4 WITH PACKET ADDRESS 
MOV R4, TSDBCRS) ; ISSUE COMMAND 
JSR PC; WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS) ;GET TSSR CONTENTS 
MOV geen ssc :BiT!BI1T2, R2 SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75$ ;BR, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SWDE,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP — C$ERHRD 
.WORD 554 
"WORD T2SWOE 
"WORD PKTSSR 
75$: CKLOOP ;LOOP IF SELECTED 
TRAP —- C$CLP1 


FSFE SESE SESS ESSERE SESE ESSE SEES EES EEEEEEEEEES 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 





SEQ 0203 


J16 
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013701 055100 


002000 


002212 


002212 
017322 


104402 
004737 
004737 
004737 


056416 
056510 
056552 


004737 
103407 
005237 
010001 


104455 
001054 


016114 
002212 
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000017 


a 
FREESE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EERE EERE EEE EEE EEE SE 


MOV T25BFR+6,R1 :GET XSTO STATUS WORD 
MOV R1,R2 ;SET UP EXPECTED 
BIS #B1710,R2 ;SET THE NEF BIT 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 170$ ;BR, IF EQUAL (GOOD) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, TOSNEF ,EXPREC NEF SHOULD BE SET lew 
. WORD 
“WORD 
“WORD 
170$: | CKLOOP 
TRAP 
ENDSUB 
L10100: 
TRAP 
CMP FATFLG, #15. :IS ERROR COUNT AT 25 
BLO 9$ ;8R, IF LESS THAN 25 
site JSR PC, CKDROP ;TRY TO DROP THE UNIT 


3° 


; 
sTEST S, SUBTEST 8 


; 

;VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT 
sCUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT 
sINITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 
‘ame ait AND SETS THE REVERSE INTO BOT (RIB) 

b 


SEQ 0204 


C$ERHRD 
555 
T2SNEF 
EXPREC 


C$CLP1 


C$ESUB 


BGNSUB g>>>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 
TRAP Cs$BSuUB 
JSR PC, T25SREST :;SET COMMAND PACKET 
JSR PC, T2SRT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T25RTS 3;SET UP OTHER COMMAND PACKET 
SESE EERE EEE EEE EEE EEE EEE EEE EEE EEE EE EEEE EEE EEEEEEEEEEEEEEEER EEE 
H 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
a 
JSR PC,SOFINIT ;D0 INITIALIZE ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 i CONTENTS OF TSSR REGISTER 
ERRDOF ERRNO, SFIERR, SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 556 


K16 
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054460 
054462 


290 054464 


054472 


003652 
012154 
013737 


012704 


004737 
103407 
005237 
010001 


104456 
001055 


005056 
012154 
104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001057 


002172 055070 


055050 


010752 
002212 


011136 


002212 


055100 
000002 


002212 
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SFIERR 
SF IMSG 


. WORD 
. WORD 
20$: MOV UNITN, T25DSW ;SET UP UNIT NUMBER 
MOV @T2SPACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


SERRE SATE ETEEE EE EERE SESE EE EERE ESTEE EERE SEEEEE ER ER ESSERE SESE EES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FEES EEE SEEKS EEE KEE EEE EEE EEE EEE ESE ESE EEE EEE EEE SESE EEESE 


JSR PC,WRTCHR s; ISSUE WRITE CHARACTERISTICS 

BCS 25$ ;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC a 
"NORD 
. WORD 
WORD 

25$: CKLOOP :LOOP IF SELECTED 

TRAP 


SERRE EERE EEE EEE REESE EEE EEE EEE EEE EEE EE EEE EE ETERS EEE EER ERE REE E EEE 
; 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
FEES SEEKS SEAS SSS AREER SESS EES ESE EEE EEE EEE EEE 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

BCS 30$ BR, IF NO PROBLEM 

MOV RO,R1 SAVE TSSR 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T2SRWN,PKTSSR REWIND NOT ACCEPTED ~<a 
. WORD 
“WORD 
“WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


SRE TEESE SESE E EEE EEEES ESSE SEES EES ESEEEES SSS ESE RESET ESTE EES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


‘ 
FEES SESS SSS SSS SESS ESSE SEES SESE SERS SEES SESE ESSERE SESE ESSE 


MOV TesRPn-6. R1 sPICK UP XSTO 

MOV R1,R2 sSET UP _ EXPECTED 

BIS oBiT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 40$ sBR, IF EQUAL (OK) 

INC FATFLG ; BUMP 

ERRHRD ERRNO, T25SBOT ,EXPREC sTAPE NOT AT BOT AFTER REWIND 


TRAP 
. WORD 


C$ERHRD 
aoe 


C$CLP1l 


C$ERHRD 


C$CLPl 


CSERHRD 
559 


SEQ 0205 


L16 
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SPACE 


RECORDS 


055375 
015614 


104406 
012737 


012737 


104406 
012737 


012737 
012704 


000001 


140210 
055200 
000000 
016370 
000002 
000200 


002212 
000020 


100610 
055200 


000000 
016370 
000002 
100204 


002212 


055106 
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055202 


055200 


055202 


055200 


«WORD T2S5B80T 
«WORD EXPREC 
40$: CKLOOP 
TRAP C$CLP1 
MOV #1, T2SRB sNUMBER OF RECORDS TO SPACE OVER 


SEER EEE ERE EEE EE EEE EEE EEE EERE EEE EEE EEE EEE ESSE SESE SEES EEE SEE EES 
; 

sSPACE FORWARD,IE,ACK,CVC=1 COMMAND 

; 

{EEE EEE EEE EEE EEE ETE EE EEE EEE EEE TEESE EEE EEE ESSE SEES SEES SEES EEE EEE 


MOV pi pe a £38 ate s SPACE FORWARD, IE,ACK,CVC=1 COMMAND 


MOV #T25PK3,R ;SET UP R4 WITH PACKET ADDRESS 
MOV R4, FSDBCRS) ;1SSUE COMMAND 
JSR PC: WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV @SSR,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75$ ;BR, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SWDE,EXPREC ;TSSR INCORRECT AFTER READ DATA 
TRAP  C$ERHRD 
.WORD 560 
"WORD T25WwOE 
"WORD EXPREC 
75$: CKLOOP ;LOOP IF SELECTED 
TRAP _—C$CLP1 
MOV $20, T25RB ;NUMBER OF RECORDS TO SPACE OVER 
FEES SSE SESE SEEKS ESE SES SESS SEE ESE ESR EKESEK SESE SES ERSTE SEE 
: 
;SPACE REVERSE,IE,ACK COMMAND 
: 
FESS SSESSSSESS SSS SSS SESS SESS SSE KSSH SS SES SESE ESSER SEEEKSEKESKEESEEESEESE 
MOV #100610, T25PK3 :SPACE REVERSE, IE,ACK COMMAND 
MOV OT25PK3_R4 :SET UP R4 WITH PACKET ADDRESS 
MOV R4,TSDBCRS) ;ISSUE COMMA 
JSR PC’ WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS) ;GET TSSR CONTENTS 
MOV Pech IBTTS TEC, R2 ;SET UP EXPECTED 
CMP ; ARE E 
BEQ BR, 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SWDE,EXPREC ;TSSR INCORRECT AFTER READ DATA 
TRAP §_C$ERHRD 
.WORD 561 
"WORD T2S5WDE 
"WORD €EXPREC 
175$: | CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
MOV T25BFR-14, Ri ;GET XST3 STATUS WORD 
MOV R1,R2 ;SET UP EXPECTED 
BIS a6iT9. R2 ;SET THE RIB BIT 
CMP R1,R2 ;ARE THEY EQUAL 


BEQ 180$ BR, IF EQUAL (GOOD) 


Fe 


SEQ 0206 


M16 
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TEST S: SPACE 


9392 
9396 


RECORDS 
005237 


055210 


003116 


002212 


002212 
017322 


016576 
047706 


MACRO VOS.03 


000017 


INC 
ERRHRD 


180$: 


193$: 


FATFLG 
ERRNO, T2SNEF , EXPREC 


FATFLG,#15. 
999$ 
PC ,CKDROP 


PC, TSTLOOP 
193$ 
T25L00P 


TST 


3? 
sLOCAL STORAGE FOR THIS TEST 


; WRITE SUBSYSTEM MEMORY COMMAND PACKET 


. BLK 
T25PACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
T2SDATA: 
WORD 
. WORD 
. WORD 
. WORD 
T2S50SW: .WORD 
T2SBFR: .BLKW 
3 
.BLKB 
T25PKe: 
. WORD 
. WORD 
. WORD 
. WORD 
-BLKB 
T25PK3: 
T25RB: 
T25WB: .WORD 


10-<.-TSV2E7> 


00004 
T2SDATA 


2s. 


10-<.-TSV2E7> 
100006 
T258F2 

te) 

6. 
10-<.-TSV2E7> 
100005 

FREE 
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;BUMP COUNT 
sNEF SHOULD BE SET 
aoe C$ERHRD 
WORD 562 
7WIRD T2SNEF 
WORD EXPREC 


TRAP C$CLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10101: 

TRAP CSESUB 
:1S ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


;D0 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 

;ALL DONE THIS TEST 


TRAP CSExIT 
-WORD 1L10071-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


AND ACK 


sREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 


SEQ 0207 


Bi 
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SEQ 0206 


9449 055204 000000 .WORD 0 
$450 055206 000000 T25SZ: ‘WORD 0 ;SIZE OF BUFFER (EXTENT) 
9451 "EVEN 
9452 3 
9453 3 
54 
9455 055210 fosere: 
9456 055210 010 125880: .BYTE 10 :BSELO AREA 
9457 055211 200 155851: ‘BYTE 200 ;BSEL1 AREA 
9458 055212 000000 SS2:| (WORD 0 {SEL 2 AREA 
9459 14 000000 13583: WORD 0 ‘DATA AREA 
9460 3 
9461 ; 
Secs ‘SON 
TAPE MOTION PACKET COMMAND VALUES 
9465 055216 100005 T25RN: .WORD 100005 READ DATA (NEXT) 
055220 100405 T25WOR: [WORD 100405 FREAD DATA RETRY 
9467 055222 102005 TSSCON: [WORD 102005 }WRITE CONTINOUS 
055224 177777 WORD 177777 END OF DATA 
000000 T2SCN2: .WORD 0 ;COUNTER FOR RECORDS 
9471 055230 000000 T2SCNT: ‘WORD 0 ‘COUNTER FOR RECORDS 
378 055232 000000 T2S0LY: [WORD 0 }COUNTER FOR RECORDS 
7 
9475 }LOCAL TEXT MESSAGES FOR TEST 
se ; 
9478 055234 127 122 111, T25SSR: .ASCIZ ‘WRITE SUBSYSTEM Miecelleneous Reed Status Fai led’ 


9479 055315 124 123 123. T2SWDOE: .ASCIZ fsa Not Correct After POSITION (SPACE) 
9480 055375 124 141 160 T25B80T: .ASCIZ Teen Not At BOT After REWIND Commend’ 
9481 055442 124 ‘ Not Correct After POSITION Cipere Command) Re ject’ 
‘Write Tepe, Status arert But No E0T Sensed’ 
os ‘ ' Space Forward Failed To Position be Correct Record’ 
055670 123 160 141 T2SBNC: .ASCIZ ‘Space Forward, From BOT, Failed To Clear BOT Indication’ 
'Spece Reverse Failed To Position rect eer 
'Spece Reverse, At BOT, Failed To Set NEF (XSTO)’' 
' BOT, Failed To Set RIB (xST3)’ 


1 ‘ ON) Command Not Accepted’ 
9489 056254 104 162 151 T2SOFL: .ASCIZ ‘Drive 7 Select Failed To Set atare In TSSR' 
9490 056327 124 123 123. T2SWOC: .ASCIZ ‘'TSSR Not Correct After READ DATA Command’ 
9491 056400 123 160 141 TST2SI0: -ASCIZ ‘Space Records’ 


9493 3° 

9494 3 

9495 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

BA96 IWRITE SUBSYSTEM MEMORY COMMAND 

9497 3 

9498 io 

9500 056416 T2SREST: 

9501 056416 SAVREG sSAVE THE REGISTERS 

9502 056422 012701 055050 MOV ST25PACKET ,R1 sSTART OF THE PACKET 

9503 056426 012721 100004 MOV 9100004, (Ri) sWRITE SUBSYSTEM MEM. WITH ACK 
9504 056432 012721 055060 MOV @T2SDATA, (R1)- sADORESS OF CHARAISTICS DATA BLOCK 
9505 056436 005021 CLR CR1)-< sEXTENDED ADDRESS 
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015781 98888 otOSBPR, C1. {ADDRESS OF MESSAGE BUFFER 
9039s? 


000024 MOV $58” cans. ;LENGTH OF MESSAGE BUFFER 
R T ORI 

000030 MOV $04 °A3 I SCHSER OF 

177777 OSS072 64%: " 0177777, T2SBFRCR2) N 

000000 #0,R2 31S R2 AT ZERO YET 


643 sKEEP GOING UNTIL DONE 
PC sRETURN 


LScATI IONS TO BE CLEARED 
SAGE BUFFER 


sSAVE_THE REGISTERS 
@T25PK2 ,R1 sSTART OF THE PACKET 
9100006 , (R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
Bf, 2.CR1)- Orbe OF DATA BLOCK 


XTENDED Ss 
SIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE_THE REGISTERS 
sSTART THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
3 OF DATA BLOCK 


sEX Ss 
{SIZE OF DATA BLOCK IN BYTES 
ENSTST capers 


-SBTTL TEST 6: REREADS 
3° 


iTHIS TEST VERIFIES THAT THE REREAD PREVI 

;DATA TES 

1 SPACE IS AVAILIABLE) - SWAP ) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS 
CONDITIONS: RECORD LENGTH LONG 


SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER 
TA BUFFERS IN NONEXISTENT MEMORY. 


REC 


3 
+ THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 
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9360 056604 012737 50 002170 MOV gePRT2,EPRTSH CONDARY ERROR MESSAGE 
5 ie 004737 orste7 MOV Be RTOPF sBON'T S IFY TEST 

3308 2 737 0166 JSR be Tefeetue 100 TE MeSShGe T Ope 

9568 056626 012737 002206 MOV #5. LOOPCNT PERFORM 5 ITERATIONS 

9569 056634 737 022236 JSR PC: 1 CHECK FOR MEMORY 

9570 056640 37 003130 CLR NXMFLG SET FLAG 

9371 056644 005037 073236 CLR T26CNT CLEAR TAPE RECORD COUNTER 

9573 ; 

9374 ;TEST 6, SUBTEST 1 

ore : 

9577 VERIFIES THAT THE REREAD PREVIOUS. COMMAND WITH OPP=0 

9°78 }AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 

9.79 ;REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 

9580 RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 

9581 31S THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 

9582 }TAPE IS SPACED F A REREAD 

9583 PREVIOUS COMMAND FESta Ts (STATUS DATA, 

9584 iETC.) ARE VERIFIED, THE BYTE COUNT ON EACH REREAD 

9585 ;PREVIOUS COMMAND IS O THE LENGTH OF THE EXPECTED 

9586 ;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

9588 : 

9589 :- 

9590 

9591 056650 T26L00P : 

9593 open. BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
056650 1 ““f TRAP ss C#BSLB 

9594 056652 004737 07 JSR PC, T26REST :SET COMMAND PACKET 

S306 Oscees Ooaysy OTeLs Jen PELTSORTS BET UP OTHER CORFAND PACKET 

3337 Oseees 012787 «LTeTSO 073244 HOV 968000 T26DLY . OeCT US DELAY COUNTER 

<4 4 4 PERSE EET EHEAER ESHER EKOREE EE EERE EERE EE KEELE KH CHLEK ESE ESHER ES SES 

9601 ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

3603 - SSSSSSSSSESSSSESSSSESSSSESSSSSESSSSSHSSSSSSSSESSSSSSSESSSESSSSESSSESSESsSsssse 

9605 056674 004737 016114 10$: JSR PC, SOFINIT ;D0 INITIALIZE ON CONTROLLER 

9606 056700 103426 BCS 203 BR IF INIT OK 

7 056702 DELAY 350 ;DELAY FOR A REWIND TO FINISH 

056702 012727 000250 Ov #250,(PC)- 
056706 .WORD 0 
056710 013727 002116 MOV LSOLY,(PC)« 
056714 .WORD 6 
056716 005367 177772 bEC -6¢PC) 
056722 001375 BNE 
056724 005367 177756 DEC =20¢PC) 
056730 001367 BNE .=20 

9608 056732 005337 073244 DEC T260LY DEC COUNTER 

3698 $26738 88838$ coz212 ONE OCPATFLG Bure COUNT 


El 


9614 056744 
9615 056746 
056 


010001 
104455 
001131 
003652 
012154 


013737 
012704 


013701 
010102 
052702 
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002172 073100 
073060 


0107S2 
002212 


073110 
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sCONTENTS OF TSSR REGISTER 


MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS aa B 
. WORD 
. WORD 


20%: 
MOV UNITN T260SW 
MOV @T26PACKET ,R 
FFSSSSSSSSSSSSSSESSSSSSSSSSSSESSSSSSESSSSSSESSSSSSESESSSSSSESSSESSSESSESESSSS 
{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


$ 
§ SSSSSSSSSSSSSSSSSSSSE SSS SS SS SSE SSSSSSSSSS SSS SSS SSS SSSSSESSSSESSESSSE SSS 


sSET UP UNIT 
s SUBROUT 


JSR PC ,.WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 263 :8R, IF COMMAND ISSUED OK 

INC FATFLG ; 

MOV R1 ;SAVE CONTENTS OF TSSR 

ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
. WORD 
[WORD 
"WORD 
26$: CKLOOP ;LOOP IF SELECTED 

TRAP 


{FSSC SSS SEES SSE SESS SSS ESSE SS SSSESESSSSS SSE S ESSE SESS SESS SESE ESES 
; 

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

; FOSSETT SSS SESS SS SS SESS SESS SSSSSSSSSSSESES SESS SESS ESE SESESEEEETETS 


JSR PC , REWIND sCALL_TAPE REWIND COMMAND 


BCS 303 36R, IF NO PROBLEM 

MOV TSSRCRS),R1 ;GET TSSR 

MOV @SSR,R2 sSET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED eas 
. WORD 
[WORD 
"WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


8 FSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSESSESSSSSSSKSSSSSSSSSSSSSESSESSESSESSS 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
s panebsenesnsnssnesennnsneenensnnennnneneesenenneneneenenenenenees 
MOV T26BFR+6,R1 PICK UP XSTO 
MOV R1 3SET UP EXPECTED 
BIS #8iT1,R2 }SET BOT BIT IN EXPECTED 


CSEROF 
60 


SFIMSG 


NUMBER 
INE NEEDS PACKET ADDRESS 


CSERHRD 
602 
WRTMSG 
SFIMSG 


C$CLP1 


SE@ 0211 


Fi 
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SEQ 0212 
TEST 6: REREADS 
9663 057066 020102 CMP R1,R2 ;DOES EXP = REC'D 
9664 057070 001406 BEQ 403 ;BR, IF EQUAL (OK) 
9665 057072 005237 002212 INC FATFLG ;BUMP 
9669 057076 ERRHRD ERRNO, T2680T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
057076 104456 TRAP §C4ERHRD 
057100 001134 .WORD 604 
057102 07 "WORD T26B80T 
057104 015614 [WORD EXPREC 
9670 057106 40$: CKLOOP ;LOOP IF SELECTED 
057106 104406 TRAP = C$CLP1 
9671 057110 012703 000400 MOV $256. ,R3 sRECORD SIZE 
9672 057114 013737 003116 073212 MOV FREE, T26RB ;STARTING WRITE BUFFER ADDRESS 
Seis FFSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSESESSSESSSSSSSSSSSSSESSSSE SSS SSESESSESSSSsS 
3 
3676 ;WRITE DATA, ACK,CVC=1 COMMAND 
3 
oes FFSSSSSSSSSSSSSSSS SSSSSSESSSSSSSSSSESSSESSSESSSSSSSSSSESSSESSSSSSSSSESSESSS 
9680 057122 012737 140005 073210 MOV 9140005 , T26PK3 ;WRITE DATA, ACK,CVC=1 COMMAND 
9681 937130 012704 073210 me MOV OT26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
Sees 057134 010300 MOV R3,RO :SET PATTERN IN CORRECT REGISTER 
0571 737 017542 JSR PC; FILLMEM 3FILL MEMORY WITH RECORD SIZE 
9685 057142 010337 073216 MOV 72682 3SET UP RECORD SIZE IN PACKET 
057146 010465 000000 MOV R4, TSDBCRS) +1 COMMAND 
9687 057152 737 016370 JSR *WAITE ;WAIT FOR SSR TO SET 
057156 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENT 
057162 012702 000200 MOV R2 ;SET UP EXPECTED nn 
9699 057166 020102 CMP R1,R2 ;ARE THEY E 
9691 057170 001406 BEQ 753 BR, 
057172 005237 002212 INC FATFLG ;BUMP COUNT 
9696 057176 ERRHRD ERRNO, WRTERR,EXPREC ;TSSR INCORRECT AFTER WRITE DATA 
057176 104456 TRAP  CERHRD 
057200 001135 .WORD 605 
057202 11 "WORD WRTERR 
057204 015614 "WORD EXPREC 
9697 057206 75$: CKLOOP ;LOOP IF SELECTED 
057206 1 TRAP = C$CLP1 
9698 057210 005723 TST (R3)+ ;BUMP RECORD SIZE 
057212 022703 000414 CMP $268. ,R3 sEND OF RECORD YET 
9700 057216 001346 BNE 65% F TORE <RECORDS TO WRITE 
9701 057220 80$: CKLOOP BOOP. IF SELECTED 
057220 104406 TRAP = C$CLP1 
9702 057222 1206: 
Lo PERERA REECE REC EHH E REE EEE EES SEK EHEHEKE KE SCHEREKC SESH ESSE SRE KH 
b A 
3706 ;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
A PETERS KO REHE RE EH EEE HEE EK EAS HERES EK ESKER KH HERA SKK RE KE SH 
9710 057222 737 011136 PC. REWIND sCALL TAPE REWIND COMMAND 
9711 057226 103413 BCS 136 1BR IF NO PROBLEM 
9712 057230 016501 SSR(RS),R1 TSSR 
9713 057234 012702 000200 MOV @5SR,R2 1SeT UP EXPECTED TSSR 
9714 057240 01 MOV RO,R4 sPACKET ADDRESS SET UP 


Gi 
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TEST 6: REREADS 
9715 057242 005237 002212 INC FATFLG sBUMP COUNT 
9719 057246 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
057246 104456 AP CSERHRD 
057250 001136 606 
057252 074544 WORD T26RWN 
057254 012166 ° PKTSSR 
9720 057256 130%: CKLOOP sLOOP IF SELECTED 
972) 057256 104406 TRAP CSCLP1 
aise SPCC CESS ESSE ESSE ESTES SESS SESS SES ESE EE ESSE ESSE ESTEE ESSE SE TE 
: 
37s sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
ret s FSCS SSS ESTES ESTES SSS ES ESSE SESE SEE SESES LESSEE SEESESEE EES EE SEES 
9728 057260 013701 073110 MOV T26BFR-6,R1 sPICK UP _XSTO 
9729 057264 010102 MOV R sSET UP_EXPECTED 
9730 057266 052702 000002 BIS o8iT1,R2 iSET BOT BIT IN EXPECTED 
9731 OS7272 020102 CMP R1,Re sD0ES c‘d 
9 7274 001406 BEQ 140$ :BR, IF EQUAL (OK) 
9733 057276 005237 002212 INC FATFLG sBUMP 
9737 057302 ERRHRD ERRNO, T26B0T ,PKTSSR ; TAPE NOT AT BOT AFTER REWIND 
7 104456 TRAP CSERHRD 
057304 001137 WORD 7 
057306 074255 WORD 2680T 
057310 012166 -WORD PKTSSR 
9738 057312 140%: CKLOOP sLOOP IF SELECTED 
057312 104406 TRAP CsCLP1 
Ah 4 057314 012737 000400 073242 MOV 0256. , T26RSZ sSET RECORD SIZE 
dint | sFCSSSSSSS SSS S SESS SESS SS SESE SESS SESS EASES ESET EE SESE SEES EE SEES 
; 
9743 s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
374s iBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
dap. ; SESCSSSSSS SSS SSSSS SSSR SSET ESET ESSE ESET E EES SEES ES SETERES SESE SEEES 
9748 057322 012703 000001 145: MOV 01,R3 sSPACE ONE RECORD PARAMETER 
9749 057326 004737 010560 JSR PC, SPACE sCALL_ SPACE ROUTI 
9750 057332 103412 BCS 150% sBR, IF NO PROBLEM WITH SPACE COMMAND 
9751 057334 016501 0900002 MOV TSSRCRS),R1 ’ TSSR 
9752 057340 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED TSSR 
9753 057344 005237 002212 INC FATFLG sBUMP C 
9757 057350 ERRHRD ERRNO, T26SC,EXPREC sPOSITION (SPACE RECORDS) FAILED 
OS7350 104456 TRAP cs 
057352 001140 -WORD 606 
057354 073657 -WORD T26SC 
057356 015614 -WORD EXPREC 
9758 057360 150%: CKLOOP 
OS7360 104406 TRAP CSCLP1 
9759 057362 013703 073242 MOV T26RSZ RS sRECORD SIZE 
ree 057366 013737 003116 073212 MOV FREE, T26RB sSTARTING READ BUFFER ADDRESS 
pa s PSSST SESS SSS SESS SEES ESE SES SS ERSTE ESS ES TEESE ETERS SEES EE SEE 


9764 }REREREAD DATA,CVC#1, ACK COMMAND 
| 


H1 
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SEQ 0214 
TEST 6: REREADS 
76 FFSSSSSSSSS SHS SSESSSSSSSSSSSSESSSSSSSESSESSSSSSESSS SSS SSS SESSESSESSSESESESSES 
9768 057374 012737 141001 073210 MOV ry 41001, T26PKS sREREREAD DATA,CVC=1,ACK COMMAND 
9769 057402 012704 073210 165$: MOV StogeK ;SET UP R4 WITH PACKET ADDRE 
9770 057406 010337 073216 MOV R3, oes ;SET UP RECORD SIZE IN PACKET: 
9771 057412 010465 000000 MOV R4. TSDBCRS) 315. OMMAND 
9772 057416 004737 016370 JSR WAIT ;}WAIT FOR SSR TO SET 
773 057422 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
9774 057426 012702 000200 MOV @SSR,R2 3SET WP EXPECTED 
057432 020102 CMP R1,R2 }ARE THEY € 
9776 057434 001406 BEQ 170$ :BR, IF OK 
9777 057436 005237 002212 INC FATFLG sBUMP COUNT 
9781 057442 ERRHRD ERRNO, T26WOC,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
057442 104456 TRAP = C$ 
057444 001141 .WORD 609 
057446 075100 :WORD 126 ' 
057450 012166 “WORD PKTSSR ie 
9782 057452 170$: | CKLOOP ;LOOP IF SELECTED 
057452 TRAP © C$CLP1 
9783 057454 013702 003116 MOV FREE ,R2 sCURRENT BUFFER ADDRESS TO R2 
9784 057460 010304 MOV R3,R4 iC RECORD SI 
9785 057462 162704 000400 SUB $256. ,R4 ;FIRST LOCATION IN BUFFER 
057 173$: ADD R2,R4 3SET UP POINT 
9787 057470 021403 CMP (R4),R3 }CHECK DATA READ (R3=DATA ALSO) 
9788 057472 001410 BEQ 1803 ;6R, IF ALL IS WELL 
9789 057474 011401 MOV (R4),R1 sRECD DATA 
9790 057476 010302 MOV 3,R sEXPECTED DATA 
9791 057500 005237 002212 INC FATFLG 38 
9795 057504 ERRHRD ERRNO, T26DTA,EXPREC ;DATA READ NOT = WRITTEN 
057504 104456 TRAP CSERHRD 
057506 001142 .WORD 610 
057510 074322 "WORD T26DTA 
057512 015614 “WORD €EXPREC 
9796 057514 180$: CKLOOP ;LOOP IF SELECTED 
057514 104406 CSCLP1 
9797 057516 005724 TST (R4)- ;BUMP TO NEXT LOCATION 
057520 160204 SUB R2,R4 sCORRECT RECORDS SIZE VALUE 
9799 057522 020403 CMP R4_R3 sEND OF REC T 
057524 001360 BNE 173% ;8R, IF NOT AT END OF RECORD 
9801 057526 723 TST (R3)- :BUMP RECORD SI 
9802 057530 010337 073242 MOV R3, T26RSZ sRESET RECORD SIZE 
9803 057534 022703 000412 CMP $266. ,R3 sEND OF RECORD YET 
9804 057540 001270 BNE 145$ F MORE eRECORDS TO READ 
9805 057542 190%:  CKLOOP B50P IF SELECTED 
057542 104406 TRAP = CSCLP1 
9606 057544 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
057544 L10103: 
057544 104403 TRAP C$ESUB 
9807 057546 023727 002212 000017 CMP FATFLG, 15. sIS ERROR COUNT AT 
9808 057554 10 BLO 999$ :BR, IF LESS THAN 25 
057556 004787 017322 JSR PC, CKDROP sTRY TO DROP THE UNIT 
9810 057562 999$: 
9811 
9812 s° 
9613 3 
9614 sTEST 6, SUBTEST 2 


TSV7 - HARDWARE TESTS 1-86 
TEST 6: REREADS 


9663 


9667 


012154 
013737 
012704 


076000 
076072 
076134 


016114 
002212 


002172 
073060 


010752 
002212 
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073100 


sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OpP=0 
4+ 3 SWB=1 OPERATES ED IN 86 mc Tour it as. 
;VERIFIED THAT DATA STORED BY THE EoeeAND CONTAINS 
}SWAPPED BYTES. 
b 
3 
3 
: BGNSUB p>>>>>>>>>>>> am, © erates >>>>>>>>>>>> 
"TRAP C$BSUB 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT ;SET UP OTHER COMMAND PACKET 
JSR PC; T26RT 3SET UP OTHER COMMAND PACKET 
SFSSSSSSSSSS SSS SSS SSS SS SSSS SS SS SS SSE SSS SSS SSS SSS SSESSSESSSESSE SESSESSESESS 
3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| Seeeeecereoosoossosoosooooososooososoooeebooesocososeeosoeseseees 
JSR PC, SOFINIT :00 INITIALIZE ON CONTROLLER 
BCS 203 :BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDOF ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
.WORD 611 
“WORD  SFIERR 
“WORD SFIMSG 


20$: MOV —sCUNTTN, T260SW 

MOV —s@T26PACKET, R4 
BR Me Be he Ge ae Oe ae ae a OR OO Oe Ae OE 
{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FFSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSS SESS SSS SSS SSS SSSSSSSSSESSSS SESS 


sSET UP UNIT NUMBER 


JSR PC,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 263 ;8R, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP C 
MOV RO,R1 sSAVE CONT TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG WRITE ONABAC ERIsTiSe FAILED 
TORO 
WORD 
"WORD 
26%:  CKLOOP ;LOOP IF SELECTED 
TRAP 


FFFSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSSESSSESSESSSSSSSSSSSSSSESSSSSESSESSES 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 


sSUBROUTINE NEEDS PACKET ADDRESS 


SEQ 0215 
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SEQ 0216 
TEST 6: REREADS 


pose FFSSSSSSSSSSS SS SSS SSSSSSSSESSSES SSS SSS SSESSSESSSES SSS SSS SSESSSESSSESESESSES SS 
3870 057664 004737 011136 JSR PC REWIND :CALL TAPE REWIND COMMAND 
9871 057670 103413 BCS 30 IF NO PROBLEM 
9872 057672 016501 000002 MOV TSSRCRS),R1 iGEt T 
9873 057676 012702 000200 MOV @SSR,R2 sSET we EXPECTED TSR 
9874 057702 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
9875 057704 005237 002212 INC FATFLG sBUMP COUNT 
9879 057710 ERRHRD ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED 
057710 104456 TRAP C$ERHRD 
057712 001145 .WORD 613 
057714 074544 [WORDT 
057716 012166 : PKTSSR 
9880 057720 30$: CKLOOP ;LOOP IF SELECTED 
: 057720 104406 TRAP = C$CLP1 
ba FFSSSSSSSSSSSSSS SES SSS SSS SSS SSS SSSSSS SSS SSE SSS SSSSSSSSESSESSESSES SES SESSE SSS 
988 3 
9684 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
988 Q 
oes FSSSSSSSSSSSSSSSSE SSS SSS SS SSS SSE SSSSSSSSSS SSS SSS SSSESSESSESSSESSSESSS SSeS 
3888 057722 013701 073110 MOV T26BFR+6,R1 ;PICK UP XSTO 
9889 057726 010102 MOV R1,R ;SET UP EXPECTED 
9890 057730 052702 000002 BIS #81T1,R2 SET BOT BIT IN EXPECTED 
9891 057734 020102 CMP R1,R2 ;D0ES EXP = REC'D 
9892 057736 001406 BEQ 40% iB. IF EQUAL COK) 
9893 057740 005237 002212 INC FATFLG 
9897 057744 ERRHRD ERRNO, T26B0T, EXPREC }TAPE NOT AT BOT AFTER REWIND 
057744 104456 TRAP §_ CSERHRD 
057746 001146 .WORD 614 
057750 074255 ‘WORD 26B0T 
057752 015614 “WORD EXPREC 
9898 057754 40$: CKLOOP- ;LOOP IF SELECTED 
057754 104406 TRAP = C$CLP1 
9899 057756 012703 000400 ” MOV $256. ,R3 sRECORD SIZE 
3300 057762 013737 003116 073212 MOV FREE , T26RB ;STARTING WRITE BUFFER ADDRESS 
m4 pa § SSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSESSSSSSESSESSSSSSSSSSSE SSS SSSSSESSSESSESE 
3 
9904 ;WRITE DATA,ACK,SWB COMMAND 
9905 ; 
zoos FSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSE SS SSSESSSSSSSSSSSSESSSSSSSSSSSSSSSseses 
9908 057770 012737 110005 073210 MOV #110005, T26PK3 ;WRITE DATA, ACK,SWB COMMAND 
9309 057776 012704 073210 a MOV OT26PK3,R4 ;SET UP R4 WITH PACKET ADORESS 
9911 e003 010300 MOV R3,RO :SET PATTERN IN CORRECT REGISTER 
9912 060004 004737 017542 JSR PC. FILLMEM 3FILL MEMORY WITH RECORD SIZE 
9913 060010 010337 073216 MOV R3, 126SZ 3SET UP RECORD SIZE IN PACKET 
9914 060014 010465 000000 MOV R4,TSOB(RS) s1SSUE COMMAND 
9915 060020 004737 016370 JSR PC. WAITF sWAIT FOR SSR TO SET 
9916 060024 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
9917 060030 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
9918 060034 020102 CMP R1,R2 ;ARE THEY EQUAL 
9919 060036 001406 BEQ 753 BR, OK 


BR, IF 
005237 002212 INC FATFLG sBUMP COUNT 


K1 
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TEST 6: REREADS 


ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
104456 TRAP ss «C$ 
001147 
005113 
012166 : 
:  CKLOOP ;LOOP IF SELECTED 
104406 TRAP 
005723 TST (R3)- ;BUMP RECORD SIZE 
022703 CMP $268. ,R3 sEND OF RECORD YET 
001346 BNE He ;8R, IF MORE RECORDS TO WRITE 
80$: CKLOOP ;LOOP IF SELECTED 
104406 TRAP 
1204: 
FFSSSSSSSSSSSS SSS SSS SS SSSSSSSESSSSSSSESSESSESSESSSSE SSS SSESSESSSESESESSseseseeses 
4 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
i 
FFSSSSSSSSESSSSSSSSSSSESSSSSSSESSSSSSSSSESSSSSSSESSSESSSSE SSS SSESSESSSSESSSSeS 
:CALL TAPE REWIND COMMAND 
3 NO PROBLEM 
:GET TSSR 
;SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 


sBUMP COUNT 
ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 


130%: CKLOOP sLOOP IF SELECTED 


CREEKS ESHEETS HEE SEEKER EK RERE KEKE ERE KKK HEREC HECKER EEE 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
peegeggnenseneeessnenssensssensasonneseensssnenesenneneeeeneeineents 
013701 T26BFR+6,R1 sPICK UP XSTO 
MOV Ri ' UP EXPECTED 
#6i1T1,R2 3SET BOT BIT IN EXPECTED 
R1,R2 3;D00ES = s 
:BR, IF EQUAL (OK) 


140% 
FATFLG sBUMP COUNT 
ERRNO , T26B0T , EXPREC sTAPE NOT AT BOT AFTER ss 


1404: sLOOP IF SELECTED 
MOV #256. , T26RSZ sSET UP RECORD SIZE 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSESSSSSSSESSESSS 
ry 





Li 
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TEST 6: REREADS 


sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
1B1T 1S SETS DIRECTION - O=FORWARD 1=REVERSE 


: 
FS FSSSSSSSSSSSSSESSSSSSSESSSSSSESSSESSSESSSSSSSSSSESSSESSSESSESSESSESSESSESSESSSSS 
012703 000001 145%: #1,R3 sSPACE ONE RECORD PARAMETER 
004737 PC; SPACE :CALL SPACE ROUTI 
1 3BR, IF NO PROBLEM WITH SPACE COMMAND 
TSSRCRS),R1 ’ TSSR 
@SSR,R2 ;SET UP EXPECTED TSSR 
FATFLG ;BUMP C 
ERRNO, T26SC,EXPREC sPOSITION (SPACE RECORDS) FAILED ; 
. WORD 
~ WORD 
"WORD 
CKLOOP 
TRAP 
073242 MOV T26RSZ,R3 sRECORD SIZE 
003116 MOV FREE, T26RB sSTARTING READ BUFFER ADDRESS 
8 FSSSSSSSSSSSSSSESSSSESSSSSESSSSSSSSSSESSSSSSSSSSSSSSSESSSSESSSSSESSESSESSsse 
3 
sREREAD DATA,CVC=1,ACK,SWB COMMAND 
: 
SFSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSSSSESSSSSSSSESSESSSESSSSESSESSSESLSSSesses 
151001 MOV #151001, T26PKs sREREAD DATA,CVC=1,ACK,SWB COMMAND 
073210 165%: MOV ST26PKS,R sSET UP R4 WITH PACKET ADDRESS 
073216 MOV 3-fo0se SET UP RECORD” SIZE IN PACKET 
000000 Ra: TSDBCRS) Ts. 
016370 WAITF 
000002 TSERCRS), R1 
000200 @SSR,R 
Ri Rone 
170% 
PATELG 
ERRNO, T26WDC ,PKTSSR 


MOV 
JSR 
MOV 
CMP 


B33 


002212 


z 


“WORD 
“WORD 
sLOOP IF SELECTED 
TRAP 
' BUFFER ADDRESS TO R2 
' RECORD SIZE 
sEIRST LOCATION IN BUFFER 
i}CHECK DATA READ (R3=DATA ALSO) 
:OR, IF ALL IS WELL 
sRECD 
}EXPECTED DATA 


iDATA READ NOT = WRITTEN 
TRAP CSERHRD 


«WORD 620 
-WORD T26DTA 


SBSRQEERE 2 
; : 


nn 
pw 
— 
wn ~ 
o 


8 
a4 
PB 
o 





M1 
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-WORD EXPREC 
sLOOP IF SELECTED 


TRAP CéCLP1 
sBUMP TO NEXT LOCATION 
sCORRECT RECORDS SIZE VALUE 
END RECORD YET 


:6R, IF MORE RECORDS TO READ 
;LOOP IF SELECTED 
C$CLP1 


TRAP 
3>>>>>>>>>>>> END G1 Ned >>>>>>>>>>>> 
L10 P 
TRAP CsESUB 
002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
999% 1BR IF LESS THAN ate 
017322 A JSR PC ,CKDROP Y TO OROP THE UNI 


3° 
;TEST 6. SUBTEST 3 


; VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
sCREAD REVER ACE F ES 


s . IRST eee AND T 
sWITH A SERIES OF RE’ IS VARYING IN LENGTH AND 
sDATA See heron FIRST FOUR BYTES OF EACH RECORD 
sCONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
sTAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
iTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 


1. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED 
AND THE RESULTS CHECKED 


A READ FORWARD COMMAND IS THEN ISSUED AND 

DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITI AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


;THE_BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
sTO THE LENGTH OF THE EXPECTED RECORD, SO NO 
sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 


g>>>>>>>>>>>> orgy AetEs! >>>>>>>>>>>> 
. 3 
TRAP Cs#8SuUB 
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JSR PC, T26REST 
CLR T 3CL 
JSR » T26RT sSET UP OTHER 
JSR » T26RT ;SET UP OTHER 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSSSSSSSESSSSSSESSSESSSSSESSESES SS 
FISSUE CONTROLLER “SOFT INITIALIZE - CARRY BIT CLEAR IF ERROR 
: SHSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSESSSESSSSESSSESSESSSSESSSESSESSESSESESSESESS 
016114 JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20% :8R IF INIT WAS OK 
002212 FATFLG sBUMP COUNT 
RO,R1 :CONTENTS OF TSSR REGISTER 
ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
621 
SFIERR 
SFIMSG 
UNITN, T26DSW ;SET UP UNIT NUMBER 
@T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
5 RR Re he Se whe Oe a ae ee a oe he ae he a ee ae eo mR RO ee OK OR EH RE EH 
}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
- KEGKSCESRCK EHEC SE CKRKKEKHESCKKKSK KS KSETKKHSK SSE CHK ERE KLE KEKE SKLAR KEEKHE 


sISSUE WRITE CHARACTERISTICS 
SSUED OK 


JSR 
BCS 263 38R, IF COMMAND I 
BUMP 


INC 
MOV _—s- RO, R1 SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 


iS 
TRAP 
F SKSKSEKKSS KSC KL LKAL CSL SLL GLASER ARE MASS HRLSKSHRAAASSSLECKESEEE 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
: SSSSSSSSSSSSSS SSS SS SSS SS SS SSS SSS SS SS SSS SOSH SSS SSS SS SSS SESS SSS SSSSS 
BC REWIND 
TSSR(RS),RA 
OSSR,R2 


26%: CKLOOP sLOOP IF SELECTED 


RO,R4 
FATFLG 
ERRNO, T26RWN,PKTSSR 





Be 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


060566 074544 


060570 012166 
10129 060572 
060572 104406 


10136 

10137 060574 013701 

10138 060600 

10139 060602 

10140 060606 

10141 060610 001406 

10142 060612 

10146 060616 
060616 1 


104406 
10148 060630 012703: 000400 


tty 060634 013737 


S56 
10157 060642 012737 
10158 060650 012704 


10178 060746 022703 


30%: CKLOOP 
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SE@ 0221 
«WORD T26RWN 
WORD PKTSSR 


sLOOP IF SELECTED F 
TRAP © C$CLP1 


FFSSSSSSSSSSSS SS SSS SSS SS SESS SSS SESS SSSSES SS ESSSSESSSSSSSESSSESSSSE SESS SES 


’ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
: SSCESSESSSS SESS TESST SSS SESSSSS ESET ESSERE SESS SEE SESE SSS ES ESE SEE TS 


40 
INC FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


MOV 9256. ,R3 
MOV FREE,T 


sPICK UP _XSTO 

sSET EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES = REC'D 

sBR, IF EQUAL (OK) 


;TAPE NOT AT BOT AFTER REWIND 
TRAP 


CS#ERHRD 
-WORD 624 
-WORD T26B0T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP C$CLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


s SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSESSSSESSE SESS SSE SESS SESE SE SES 


SWRITE DATA,CVC=1,ACK COMMAND 


3 
SEEKER EKER HSER ERTS ERASE EEK EKER ER EKER SHEE KES H ERE SER ES 


#140005 , T26PK3 
ese OT26PK3 ,R4 


pruned & 
z 
g 
3 


7S 
FATFLG 
ERRNO, WRTERR ,PKTSSR 


75$: CKLOOP 


TST CR3)- 
CMP 0268. ,R3 


sWRITE DATA,CVC=1,ACK COMMAND 

;SET UP R4 WITH PACKET ADORESS 

sSET PATTERN IN CORRECT REGISTER 
WI ORD SIZE 


3 OUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP cs 


-WORD 625 

-WORD WRTERR 
-WORD PKTSSR 
TRAP CsCLP1 


sLOOP IF SELECTED 


sBUMP THE RECORD SIZE 
sMAXIMUM SIZE YET 
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SEQ 0222 
TEST 6: REREADS 


10179 060752 00140 BEQ «1208 BR, IF AT END OF WRITE SEQUENCE 

10180 060754 00073 BR 283 WRITE MORE RECORDS 

10181 060756 1208: 

10182 060756 005037 078236 CLR —s T26CNT ;SET RECORD COUNTER BACK TO ZERO 

+018 FFSSSSSSSSSSSSSSSSSSSSSSESSSSSESESSSESSESSSSSSSESSESSSESSSESSESSE SSE SESE SESSESESS 

10186 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

+0188 ; Suseueseesoeneoneesesessssoresenessoeseosseneneseeeeseessoneseses 

10190 060762 004737 011136 JSR —s- PC, REWIND CALL TAPE REWIND COMMAND 

10191 060766 103413 BCS  —«-1308 i8R, IF NO PROBLEM 

10192 060770 016501 000002 MOV —sTSSRCRS).R2 'GET TSSR 

10193 060774 012702 000200 MOV —«@SSR_RD ISET UP EXPECTED TSSR 

10194 061000 010004 MOV —s RO, RA PACKET ADDRESS SET UP 

10195 061002 005237 002212 INC FATFLG }BUMP COUNT 

10199 061006 ERRHRD ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED 
061006 104456 TRAP ——C4ERHRD 
061010 001162 _MORD 

1012 074544 “WORD T26RWN 

061014 012166 “WORD PKTSSR 

10200 061016 130$:  CKLOOP ,LOOP IF SELECTED 

10201 COLE 104406 TRAP —- C$CLP 

soso8 FFSSSSSSSSSSSSESSSSSSSSSSESSSSSSSSESSSSSSSSESSSSSSESSSSSSSESSSSESSSSESSESESSS 

10208 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

sasoe : SESSSCSSSSSESSSSSESSSESSSSSSSSESSSESSESSSESSSSSESSSESSSSSSESSSESSSESESESSESSESSSS 

19398 061020 013701 073110 MOV —« T26BFR+6,R1 sPICK UP XSTO 

10209 061024 010102 MOVsé@RRI, SET UP EXPECTED 

10210 061026 052702 000002 BIS @B1T1,R2 SET BOT BIT IN EXPECTED 

10211 061032 020102 CHP séR1R2 ‘DOES EXP = REC'D 

10212 061034 001406 BEQ 1404 :BR, IF E (OK) 

10213 061036 005237 002212 INC ATFLG BUMP 

10217 061042 ERRHRD ERRNO, T26B0T, EXPREC TAPE NOT AT BOT AFTER REWIND 
061042 104456 TRAP  CSERHRD 
061044 001163 \WORD 627 
061046 07 "WORD ‘T26BOT 
061050 015614 “WORD  EXPREC 

10218 061052 140$:  CKLOOP ;LOOP IF SELECTED 

soz19 O02 108406 TRAP CSCLP1 

34 PUSCSKSECKSEKSSKVTSEK ESSE SCSESEKSCKE SCHR TSKKKSC SERS SR SKSRSTK ETE S THREE HE EKEK EERE 

10222 LISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

19228 }81T 15 SETS DIRECTION - O-FORWARD 1=REVERSE 

cores : SSSSSSSSSSSSSSSSESSSSSSSESSSSSESSSSESSSSSSSSSSSESSSSSSSSSESSSSSSESSESsessesse 

1033S 061054 012703 000001 MOVs 1, R3 SPACE 1 RECORD FORUARD 

10228 061060 004737 010560 JSR —s- PC SPACE SPACE CALL 

10229 061064 012703 000400 MOV 0256. RS sRECORD SIZE 

10230 061070 013737 003116 073212 150%: MOV FREE. t26RB STARTING READ BUFFER ADDRESS 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


012737 


161001 073210 
073210 
073216 
000000 
016370 
000002 
000200 


002212 


073236 


073210 


121650 
073236 


002212 
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FSSSSSSSSSSSSSSSSSSS SSE SS SSS SSS SS SSE SESS SSS SSSSSSSSSSSSESSSESSESSESSSS SSS 


FREREAD DATA,CVC#1,ACK, OPP COMMAND 


3 
FFSSSSSHSSSSSSSSESSSSSSSSESSESSSSSSSSESSESSSSES SES SES SSSSSESSSSESSSSSSESSESSSES 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 


165%: 


170$: 


#161001, T26PK3 
OT26PK3.R4 

R3, 1265 

R4. - T30BCRS) 
TSSRChS), Ri 
esse R,R2 


1h 


ERRNO, T26RRG ,PKTSSR 


CR3)- 
#1, T26CNT 


sSET UP R4 WITH PACKET aonee° 
sSET UP RECORD SIZE IN PACKE 


sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

5 CTED 
EQUAL 


COUNT 
iTSSR INCORRECT AFTER —S DATA 


sLOOP IF SELECTED 


TRAP 
sBUMP RECORD SIZE 
sBUMP TAPE RECORD COUNTER 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSS 


}READ DATA, 


CvC=1, ACK COMMAND 


i 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSESSSSSSSSSSSSSESSSSSSSSsSsse 


195%: 


#140001 , T26PK3 


ERRNO , T26WNG , EXPREC 


READ DATA, CVC#1, ACK COMMAND 
SET SIZE INTO PACKET 


sBUMP COUNT 

sREAD DATA COMMAND FAILED 
TRAP 
- WORD 
- WORD 
. WORD 

sLOOP IF SELECTED va 

sFIRST WORD FROM READ BUFFER 

UP _ EXPECT 


sSET 
11S Lay = | POSITION CORRECT 
sKECP GOING POSITION OK 


sBUMP 
3 TAPE TION INCORRECT 
TRAP 


C#ERHRD 
629 
RDERR 
PKTSSR 
CsCLP1 


ceguee 


SEQ 0223 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


10332 
10333 061376 
10334 


016114 
002212 
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«WORD EXPREC 


TRAP © C$CLP1 
AT max SIZE YET 

Fat TEND OF THE SUBTEST 
PEEP GO NG MORE RECORDS 


$>>>>>>>>>>>> END serest >>>>>>>>>>>> 
TRAP = CHESUB 
31S ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY T 


FATFLG,@15. 
999% F 
O DROP THE UNIT 


PC ,CKDROP 
999%: 


t¢ 

iTEST 6, SUBTEST 4 

:VERIETES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 


TE 
THE SAME THAT IS USED IN SUBTEST 3, BUT IT 
VERIFIED THAT DATA STORED BY THE COMMAND 
SWAPPED BYTES. 


BGNSUBS y>>>>>>>>>>>> we SUBTEST >>>>>>>>>>>> 
CsB6SUB 
JSR PC, T26REST T COMMAND PACKET 
CLR T26CNT +e ean TAPE RECORD COUNTER 
JSR PC, T26RT2 3SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS }SET UP OTHER COMMAND PACKET 
FESSSSSSSSSS SSeS SSS SSS SSTSSSSSSSSLSESSSSSSETeSsseeeeseseseseeseseeeee 


ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
. SESE SR OSH SCHSESKEHKK SSE KKSESCCHE TSE SSE MESH ERASERS K HS RHEE REKKHKESHEHREE 


jae + T alltel #0 Fee ee eg Ot CONTROLLER 


INC FATFLG 

MOV RO,R1 5 S OF TSSR REGISTER 

ERRDOF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
.WORD 631 
:WORD SFIERR 
:WORD SFIMSG 

073100 204: MOV . 3SET UP UNIT NUMBER 

MOV 


sSUBROUTINE NEEDS PACKET ADDRESS 





FO 
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75 061466 


TEST 6: REREADS 


004737 


013701 
02 


010752 
002212 
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PSERTKK SKETCH KEL EE KEE HEES STEERER SKS HS ET STTHITSSH EES HEHE SKE SEE RYH EE 
;}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
| cocccecessooecosepoosooseocsocessoseseseooesooooosooecessesesesess 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 26% :8R, IF COMMAND ISSUED OK 


INC FATFLG 8 

MOV RO,R1 3s SAVE ‘ENTS OF TSSR 

ERRHRD ERRNO, WRTMSG , SFIMSG sWRITE CHARACTERISTISC Faneo 
. WORD 
. WORD 
. WORD 

26%: CKLOOP 3LO00P IF SELECTED 

TRAP 


p SSSSSSereeseseeeeeeeseeeeeeeseseTeeSESeSSEeEeSeEeeSSESeESEsESeETETS 
: 

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

’ 


F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSeses 


JSR PC REWIND sCALL TAPE REWIND COMMAND 

BCS 303 36R, IF NO PROBLEM 

MOV TSSR(RS),R1 sGETt TSSR 

MOV @SSR ,.R2 sSET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG :BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED cain 
. WORD 
* 
“WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


sp SSSCSSSSS SSS SSSSSESeSSeSeSeSSESSESSESETeSeSESSeESSSSESeSeSSSeSESSSS 
:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; SSSSSSSSSSSSSSSSSSESeSeTeseSeeeeseseeeeseeeeeseeeeseeeseeeeseeSeTS 


MOV T26BFR+6,R1 PICK UP xSsTO 
MOV R1,R2 sSET WP EXPECTED 
Bis goiti Re sSET BOT BIT IN EXPECTED 


' = RECO 
BEQ 403 :8R, IF EQUAL (OK) 
INC FATFLG , COUNT 
ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
-WORD 
. 
“WORD 


40$: CKLOOP sLOOP IF SELECTED 


SEQ 0225 
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SEQ 0226 


10386 061522 012703 000400 MOV $256. ,R3 sRECORD SIZE 

+5 061 013737 003116 073212 MOV FREE, T26R8 sSTARTING WRITE BUFFER ADDRESS 
tat FSSSSSSSSSSSSSESSSSSSSSSSSSSESSSSSSSESSESSSSSSSSSSESSSSSSSESSSSSESESSSseseses 
10391 }WRITE DATA,CVC*1,ACK COMMAND 

+o508 : SSSSSSSSSSSSESSSSSSESSSSSSSSSSESSSESSSSSSESSSSSSSSSESSSSSSSsesesesesesessesesessse 
10395 061534 012737 140005 073210 MOV 140005 , T26PK3 ;WRITE DATA,CVC=1,ACK COMMAND 
tte oetees 012704 073210 ess MOV OT26PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
10398 061546 010300 . MOV R3,RO +5 PATTERN IN Connect REGISTER 
10399 061550 004737 017542 JSR PC ,FILLMEM sFILL MEMORY WITH RECORD SIZE 
10400 061554 010337 073216 MOV R3, T26SZ SET UP RECORD SIZE IN a ton 
10401 061560 013777 073236 121330 MOV T26CNT , AFREE i MOVE TAPE RECORD NUMBER TO BUFFER 
10402 061566 062737 000001 073236 ADD #1, T26ENT sNUMBER READY FOR NEXT RECORD 
10403 061574 010465 000000 


MOV s ISSUE COMMAND 
0404 JSR sWAIT FOR SSR TO SET 
10405 061604 016501 000002 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
10406 ~~ @SSR ,R2 sSET UP _ EXPECTED 


10407 061614 020102 Rl, R2 1 ARE THEY EQUAL 

10408 061616 001406 BEQ 753 ;BR, IF OK 

10409 061620 005237 002212 INC FATFLG sBUMP COUNT 

10413 061624 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
061624 ‘ TRAP cs 
061626 001173 ‘ 635 
061630 005113 -WORD WRTERR 
061632 012166 .WORD PKTSSR 

10414 061634 75$: CKLOOP sLOOP IF SELECTED 
061634 104406 TRAP CSCLPi 

10415 061636 005723 TST CR3)- sBUMP THE RECORD SIZE 

10416 061640 022703 000412 CMP $266. ,R3 rBAXTMA SIZE YET 

10417 061644 001401 BEQ@ 120% F AT END OF WRITE SEQUENCE 

10418 061646 000737 BR 65$ :WR prite. MORE RECORDS 

10419 061650 120%: 

soeee 061650 005037 073236 CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 

10056 FESSSSSSS SSS SSS SSS SSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSSeseeeeeeses 

042 3 
pees sISSUE REWIND COMMAND TO SELECTED TPE DRIVE 
0425 3 

10426 FECSSSSSS SSS SSS SSS SSS SSSSSSESer SeSSSseeeseeseesseeseseseseseeeeees 

1042 

10428 061654 737 011136 JSR PC ,REWIND + ae TAPE REWIND COMMAND 

10429 061660 103413 BCS 130% Cow PROBLEM 

10430 061662 016501 000002 MOV TSSR(RS),RI eet 

10431 061666 012702 000200 MOV OSSR ,R2 + 7? we EXPECTED TSSR 

‘10432 061672 010004 MOV RO,R4 sPACKET ADDRESS SET UP 

10433 061674 005237 002212 FATFLG ; BUMP X: 

10437 061700 ERRHRD ERRNO, T26RWN,PKTSSR }REWI NOT ACCEPTED 
061700 104456 TRAP CSERHRD 
061702 001174 -WORD 636 
061704 074544 .WORD T26RWN 
061706 012166 -WORD PKTSSR 

10438 061710 130$: CKLOOP sLOOP IF SELECTED 


061710 104406 TRAP CsCLPi 


He 
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TEST 6: REREADS 


19833 
10441 


013701 
010102 
02 


012703 
004737 
012703 
013737 


104406 
017701 


073110 


002212 


000001 
010560 
000400 
003116 


121042 
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073212 


073210 


PSSST SESS ESET ESTES ESSE TESTES SES SSSESSESE SES SESEEEESESSESEEEES 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
§FSSSSSSSSSSSSSSSSS SSS SSS SESS SSS SSS SSS S SSS SSS SSS SSS SESSS SES SESS SSS SSS 


MOV T26BFR+6,R1 sPICK UP xSTO 

MOV R1,R2 EXPECTED 

BIS #81T1,R2 SET BOT BIT_IN EXPECTED 

CMP R1,R2 ;D0ES EXP = REC'D 

BEQ 140$ i8R, IF EQUAL COK) 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ITAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
.WORD 637 
"WORD T26B0T 
"WORD EXPREC 

140$: CKLOOP ;LOOP IF SELECTED 


TRAP CSCLP1 
§ FSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSS SESSS 


TISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
iBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 


{ Soecccccccccosccsosecoscocssssosesoceesoseeoossoscsescseescesesess 


MOV 01,R3 sSET UP SPACE FORWARD 1 
JSR PC’ SPACE sISSUE SPACE COMMAND 
0256. ,R3 sRECORD SIZE 


MOV 
150%: MOV FREE , T26RB sSTARTING READ BUFFER ADDRESS 


FFSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSESSSESSSSSSSSSSESSSESSSSSSSSseeesesesssse 
}REREAD DATA,CVC*1,ACK, OPP COMMAND 


5 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSseses 


MOV steed na REREAD DATA.CVC=1, ACK, OPP COMMAND 
165%: MOV OT26PK3,R4 sSET UP R4 Ut ACKET ADDRESS 
MOV R3, 12652 3SET UP RECORD SIZE IN PACKET 
MOV Ra. TSOBCRS) I COMMAND 
JSR PC; WAIT ;WAIT FOR TO SET 
MOV TSSR(RS),R1 ’ TSSR CONTENTS 
MOV R2 ; EXPECTED 
CHP R1,R2 ;ARE THEY EQUAL 
BEQ 7 36R, IF OK 
INC ATFLG sBUMP COUNT 
ERRHRD ERRNO, T26RRF ,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
RAP —- CSERHRD 
. $58 
"WORD  T26RRF 
WORD PKTSSR 
170$:  CKLOOP ;LOOP IF SELECTED 
TRAP —s-« C$CLP1 
MOV @FREE ,R1 ;FIRST WORD FROM READ BUFFER 


SEQ 0227 


Te 


TSV7 - 


HARDWARE TESTS 1-6 


TEST 6: REREADS 


a ec 


945708 073236 


37 002212 


120722 
073236 


002212 


000410 


002212 
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073236 


073210 


000017 


MOV T »R2 :SET UP T 
Sie ago She SFE Pevecren 
CMP R1,R2 31S TAPE POSITION CORRECT 
BE 190% ;KEEP GOING POSITION OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26WNG,EXPREC sTAPE POSITION INCORRECT 
TRAP §C$ERHRD 
.WORD 639 
"WORD T26WNG 
“WORD EXPREC 
190$:  CKLOOP 
TRAP —- C$CLP1 
TST (R3)- ;NEXT RECORD SIZE 
ADD 61,7 ;BUMP TAPE RECORD COUNTER 
FFSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSSSSSESSSSSSSSSSESSSSSSESSSSSSESSSESseses 
3 
sREAD DATA, CVC=1, ACK COMMAND 
» 
FS SSSSSSSSSSSSSSSSSSSSESSSESSSSSSSSSSSSSSSSESSSSSSSESSESSSSSSSSSSESSSESssesse 
MOV #140001 , T26PK3 sREAD DATA cvCet ACK COMMAND 
MOV R3, 12652 sSET SIZE INTO PACKET 
MOV R4. TSOBCRS) s7SSUE READ DATA COMMAND 
JSR WAITF ;WAIT FOR SSR 
MOV TSSR(RS),R1 ;PICK UP THE TSSR 
MOV R2 sSET UP EXPECTED 
CMP R1,R2 31S THE TSSR OK 
BEQ 15% :8R, IF TSSR OK (GOOD) 
INC FATFLG ;BUMP COUNT 
ERRHRD , T26ROF ,PKTSSR sREAD DATA COMMAND FAILED 
TRAP  C$ERHRD 
.WORD 640 
"WORD  T26ROF 
“WORD  PKTSSR 
215%:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
MOV @FREE,R1 sEIRST WORD FROM READ BUFFER 
MOV T26CNT ,R2 UP EXPECTED 
CMP R1,R2 11S TAPE POSITION CORRECT 
BEQ 217% sKEEP GOING POSITION OK 
INC FATFLG BUMP COUNT 
ERRNO, T26WNG, EXPREC TAPE POSITION INCORRECT 
TRAP CSERHRD 
. WORD 641 
[WORD  T26WNG 
[WORD EXPREC 
217%:  CKLOOP 
TRAP = C$CLP1 
CMP $264. ,R3 AT max X SIZE YET 
BEQ 220% OF THE SUBTEST 
aa BR 150% iereP. GOING MORE RECORDS 
3 
ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
10106: 
TRAP C#ESUB 
CMP FATFLG, 15. sIS ERROR COUNT AT 25 


SEQ 0228 


Je 
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10541 062242 
10542 062244 
10543 062250 
10544 


103402 
004737 


017322 


076000 
076072 
076134 


016114 
002212 


002172 
073060 


010752 
002212 
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073100 


BLO 999% sBR, IF LESS THAN 25 
9906 JSR PC, CKDROP sTRY TO DROP THE UNIT 


| 
iTEST 6, SUBTEST 5S 


iVERIFIES THAT ° ane ia PREVIOUS COMMAND READING A 
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 

; TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sLONG So BIT SET. RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O 1). 

3 

3 

: 

3° 


BGNSUB g>>>>>>>>>>>> | tinned >>>>>>>>>>>> 
“°F TRAP = CSBSUB 

JSR PC, T26REST sSET COMMAND PACKET 

JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 

JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


SOR EOSERRERERAEOERNN 
SISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FSSSSSSSS SSS SSS SSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSESSsS 


JSR PC,SOFINIT 100 INITIALIZE ON CONTROLLER 
BCS 20% 1BR IF INIT WAS OK 
INC FATFLG 


MOV RO,R1 i CONTENTS OF 138 REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NO a cs 


.WORD 642 
“WORD 
20%: MOV UNITN, T26DSW ;SET UP UNIT NUMBER 
MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
§FSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSESSsesesesssse 
;}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
-euneoncesoosencsssosnsssessssessenenssseonesesesnssesoneseecoseees 
JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 264 BR. IF COMMAND ISSUED OK 
INC ATFLG 
MOV i SAVE 


1 ONTENTS OF TSSR 
ERRNO, WRTMSG, SFIMSG {WRITE CHARACTERISTISC FAILED ~~ 


SEQ 0229 


KO 
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TEST 6: REREADS 
001203 
005056 
012154 
26%:  CKLOOP ;LOOP IF SELECTED 
104406 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSESSESSSSSSSSSSsesse 
ISSUE REWIND COMMAND 10 SELECTED TAPE DRIVE 
, Gocensoooesesosoesoooososososoconoeesossoososssosesoooseeeesenoess 


sCALL TAPE REWIND COMMAND 
sens ve NO PROBLEM 


SET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 


sBUMP COUNT 
ERRNO , T26RWN,PKTSSR sREWIND NOT ACCEPTED 


30$: CKLOOP sLOOP IF SELECTED 


§ FSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSESSESSSSESSSSSSESSSESSSSSSs 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
| Succoecoooncosoocoosccooeoosooooossoocoooooooooooooooesosoosoooes 
013701 T26BFR-6,R1 sPICK UP XSTO 
MOV R1,R2 3SET UP EXPECTED 
#68iT1,R2 sSET BOT BIT IN EXPECTED 
R1,R2 ’ Ss = REC'D 
3BR, IF EQUAL (OK) 
OUNT 


40 
FATFLG sBUMP 
ERRNO , T26B0T , EXPREC sTAPE NOT AT BOT AFTER ag A 


sLOOP IF SELECTED 


#512. ,R3 sRECORD SIZE 
MOV FREE, 126R8 sSTARTING WRITE BUFFER ADDRESS 


PEVERESRS EEE KKH S ESE SEES SOSH ESSRES KEKE SKEMHEKET HS ERES CEG RE RAH HEE SESE 
}WRITE DATA,CVC*1,ACK COMMAND 
| SeceoeoooecesoooocoesosoossoseeeSeeoeneCeocoSCoSsoosoeTSeeeoeeeeS 


MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
ole MOV OT26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
3 





Le 
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TEST 6: REREADS 
010337 073216 sSET UP RECORD SIZE IN PACKET 
000000 MOV Ra; TSDBCRS) s1SSUE COMMAND 
016370 PC, WAITF ;WAIT FOR SSR TO SET 
000002 TSSR(RS),R1 GET TSSR C 
000200 @5SR,R2 
1,R2 
753 
FATFLG ' COUNT 
ERRNO, WRTERR , PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. 646 
7 WRT 
“WORD PRTSOR 
;LOOP IF SELECTED 
CSCLP1 


TRAP 
R3 sSET RECORD SIZE TO 511. 
FREE , T26RB iSTARTING READ BUFFER ADORE 


§FSSSSSSSSSSSSSESSSSSSSSSSSESSESSSSSSSSSSSSSESSSSSESSSSSSSSSSSSessesesesssse 
TREREAD DATA,CVC#1,ACK,OPP=1 COMMAND 
oupeennceseuseeqseuesseoesessensessensaeseeeseoesesnseennseoonsent 
161001 , T26PK3 REREAD DATA ,OPP=1 COMMAND 
OT26PK3 RA ; Ra uti PACKET ADDRESS 

Set UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 
iWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 


165%: 


1768 
ATFLG 
ERRNO, T26TRL ,PKTSSR 


170%: oop sLOOP IF SELECTED 
TRAP 


8 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSssessesessese 
TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
, eananneenenaneeonsnnnsnensanensneanenennecnseanesesesesesenaneses 
013701 T26BER-6, Ri sGET NESSAGE FER 
02 MOV R2 sSeT SET UP EXPE CTED 
eeitic, R2 RLL BIT IN EXPECTED 
Re See THEY EQUAL 
1858 :OR, IF EQUAL CALL IS WELL) 
ATFLG 


ERRNO, T26LON,EXPREC THE RLL BIT WAS NOT SET IN XSTO 
TRAP” CEERHRO 
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TEST 6: REREADS 
besese 81 gis 
700 062660 
062660 


104406 
012703 
013737 


000777 
003116 
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180%:  CKLOOP ;LOOP IF SELECTED -— 

MOV $511. ,R3 :SET RECORD SIZE 

MOV FREE, T26R8 :STARTING READ BUFFER ADDRESS 
FSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSESSESSSSSESSSSSSSSSSESSSESSSSESSSSSSESSESsesS 
}REREAD DATA,CVC=1,ACK COMMAND 
eer - amar pe 
#141001 , T26PK3 comune 
OT26PK3.R4 
R3, 12652 sSET UP RECORD SIZE IN PACKET: 
R4.TSDBCRS) sISSUE COMMAND 
PC ,WATTE }WAIT FOR SSR TO SET 
TSSRCRS :GET TSSR CONTENTS 
penis ibrt2, R2 sSET UP EXPECTED 
R sARE THEY EQUAL 

36R, IF OK 


sBUMP COUNT 
iTSSR INCORRECT AFTER a DATA 
lee 


365%: 


370%: sLOOP IF SELECTED 


SSSSSSSSS SESS SSS SSS SSSeSeSSSSeSeESSSSEESESETETeSeSeSESEeSeSSESeSSETS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


ty 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSSSSSSSESSSSSSESSSESSSSSSSESSSSS 


T26BFR+6,R1 sGET 
SET UP EXPECTED 
#681T12,R2 sSET THE RLL BIT IN EXPECTED 
R1,R2 sARE THEY EQUAL 
¢ :8R, IF EQUAL CALL IS WELL) 
FATFLG 
ERRNO 


BUMP 
» T26LON, EXPREC THE RLL BIT WAS NOT SET wht xSTO A 


TRAP CsCLP1 
$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


10107; 
CSESUB 


TRAP 
FATFLG,@15. sIS ERROR rel AT ot ae 
999% sOR IF LESS 
PC, CKDROP sTRY TO DROP THe UNIT 
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016114 
002212 


002172 
073060 
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073100 


3° 
ITEST 6, SUBTEST 6 
bag THAT A REREAD PREVIOUS COMMAND 


g Aa ar Ree alt IN Te HeSSACe 

-G., THE 
WFCRENCE BET VEE COUNT AND THE 
ACTUAL RECORD” Cenemoe Recurtee ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND i>. 
3 


BGNSUB 3>>>>>>>>>>>> See AStEst >>>>>>>>>>>> 
TRAP = sCSBSUB 

sa pec taseest 1S PT the e 

JSR "T26RT tSET UP OTHER COMMAND PAGKET 
SFSSSSSSSSS SSS SS SSS SSS SS SSS SESS S SS SSS SSS SS SES SE SESSSSSESESSESESESES 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
Paieneensuanonenseneotqosesenssserneresenesenseneineanneenenetents 

PC,SOFINIT s00 INITIALIZE ON CONTROLLER 
e H+ INIT WAS OK 
B ATFLG 
MOV iCONTENT S OF TSSR REGISTER 


ERROF ERANO, SETERR, SFIMSG sFATAL ERROR TSSR WAS a 


WORD 
Word 
20$: MOV _—sUUNTTN, T260SW sSET UP UNIT NUMBER 
MOV —-@T26PACKET,R4 s SUBROUTINE PACKET ADDRESS 
FSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSESSSSSESSESESSS 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: SEEKS AREER GPSS See VSS SSAC KITTEL KLES SK Se CHOC SSE SSLEVSKSSHHSASSESRR 


JSR sISSUE WRITE CHARACTERISTICS 
ISSUED OK 


ee ere come 
ie, 8 Pe cceeaaaee SAVE CONTENTS OF sn FAILED 
"WORD 


CSERHRD 
652 





B3 
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013701 
010102 


012737 
012704 


010337 


000400 
003116 


140005 
073210 
073216 
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a3 


26%: CKLOOP sLOOP IF SELECTED 


TRAP 
[FSCS SSESS SESS SESS SSSESS SESE SES ESET ESSER SESE SE SEES SESE SESE SETES ETE 
: 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FESSSSSSSESSSSSSSSSS SSS SSSSSSSSESSESSESSSSES SESS SSS SES SESSS SESS ESSE SESE SEES 


JSR PC REWIND sCALL TAPE REWIND COMMAND 

BCS 303 BR NO PROBLEM 

MOV TSSRCRS),R1 GET 

MOV @5SR,R2 sSET UP EXPECTED TSSR 

MOV RO,R4 sPACKET 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED —~ 
. WORD 
“WORD 
"WORD 

308: CKLOOP ;LOOP IF SELECTED 

TRAP 


{FOSS SSESESEE SESS SESS ESS SSS SESS TESS SSSSE SESS SESS SESE SEES SESE ESSE 
’ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSSESSSSSSSSSSSSSSSESSESSESSESSESS 


MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 EXPECTED 
BIS #681T1.R2 SET BOT BIT _IN EXPECTED 
CMP R1,R2 ;DOES C' 
BEQ 40 iBR, IF EQUAL COK) 
INC FATFLG Bi 
ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
. WORD 
“WORD 
“WORD 
40%:  CKLOOP ;LOOP IF SELECTED a 
MOV 9256. ,R3 }RECORD SIZE 
073212 MOV FREE , T26RB ;STARTING WRITE BUFFER ADDRESS 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSSESSESSSSSESSSSSSESSSSSSESSesesse 
}WRITE DATA,CVC*1,ACK COMMAND 
o epnnbensonnesabecssennsneeensssenennnnenenesbeeneenseneeseesneenes 
073210 MOV 9140005, T26PK3 ;WRITE DATA, CVC#1, ACK COMMAND - 
Hier MOV OT26PK3,R4 iSET UP R4 WITH PACKET ADDRE 
*  Mov-saRB, T26SZ 


sSET UP RECORD SIZE IN PACKET 


WRTMSG 
SFIMSG 


C$CLP1 


SEQ 0234 
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TEST 6: REREADS 


R4, TSDBCRS) s ISSUE _ COMMAND 
PC, WAIT sWAIT FOR SSR TO SET 


sBUMP COUNT 
ERRNO, WRTERR , PKTSSR sTSSR INCORRECT AFTER wee 


- WORD 
- WORD 


. WORD 
sLOOP IF SELECTED 


TRAP 
001000 #512. ,R3 sRECORD SIZE 
013737 003116 MOV FREE, t26RB iSTARTING READ BUFFER ADDRESS 


FFSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSSSESSSSSSSSSS SSS SSS SSE SESS ESSE SSES 


: 
sREREAD PREVIOUS, ACK,CVC#1,0PP=1 
| Seeeeererereeeereeeseeeeeseeeeeeeeeeeeeeeeeeeseeeeesseeseeeseesees 


161001 MOV #161001, T26PKS sREREAD PREVIOUS, ACK, CVC=1,0PP=1 
0 165%: OT26PK3.R4 }SET UP R4 WITH PACKET ADORESS 
MOV sSET Up RECORD SIZE IN PACKET 


t 
sWAIT FOR SSR TO SET 
TEeRCRS :GET TSSR CONTENTS 

ES. R2 

1,R2 

rey 

FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26TRL .PKTSSR 3TSSR INCORRECT AFTER READ ADATA 


. WORD 
. 
“WORD 
TRAP 
SPSS EAKKES KEKE KEKE SKE K EEK EK ESHER KEE HSER SEK KE KESTER E EES 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
 eseoueeconsooseseoesososossesessensesnesenssnnsseneesoneseeseseees 
013701 MOV T26BFR-6,R1 
0102 MOV R1,R2 
me int 
BEQ Tabs QUAY TALL IS WELL) 
INC FATFLG 8 


ERRHRD ERRNO, T26LOP ,EXPREC I THE RLL BIT WAS NOT SET IN XSTO 
TRAP segues 


170%: CKLOOP sLOOP IF SELECTED 
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TEST 6: REREADS eee 
063436 015614 .WORD EXPREC 
10906 063440 180%:  CKLOOP 
10907 oesaae bis704 073106 MOV T26BFR-4,R1 PICK UP RESIDUAL BYTE COUNTER ne 
10908 063446 012702 000400 MOV 0256. ,.R2° }THIS SHOULD BE THE DIFFERENCE 
10909 063452 020102 CMP R1,R2 }IS THE DIFFERENCE CORRECT 
10910 063454 001406 BEQ 190$ :8R, IF CORRECT 
i93i8 gesaes — ENeHRD ERRNO T26PBP EXPREC tROPCR NO 4 CORRECT 
Geceas poeens sete ; ~— a 
063466 93834 : T 
063470 015614 “WORD EXPREC 
10916 063472 190%:  CKLOOP ;LOOP IF SELECTED 
72 104406 TRAP  C$CLP1 
10917 063474 012703 001000 MOV #512. ,R3 sRECORD SIZE 
10918 063500 013737 003116 073212 MOV FREE, T26R8 ;STARTING READ BUFFER ADDRESS 
soas0 FSSSSSSSSSSSSSSSSESSSSSSSSSSSSESSSSESSSESSSSSSSESSSSSSSSSSSSSSESVeSsesesseses 
10322 }REREAD PREVIOUS, ACK ,CVC=1,0PP=0 
toa55 : SSSSSSSSSSSSSESSSSSESSSSSSSSSSSESSSSSSSESSSSSSSSSESSSSSSSsesesssesesesssseses 
3506 012737 141001 073210 MOV #141001, . T26PK3 HREREAD PREVIOUS, ACK. CVC=1., 0PP=0 
10927 063514 012704 073210 MOV R4 ;SET UP R4 WITH PACKET ADDRESS 
3520 010337 073216 MOV RS. mts sSET UP RECORD SIZE IN PACKET 
3524 010465 MOV RA. TSDBCRS) s ISSUE COMMAND 
10930 063530 004737 016370 JSR PC; WAI sWAIT FOR SSR TO SET 
10931 063534 016501 MOV TSSRCRS),R RL 1GET TSSR CONTENTS 
10932 063540 012702 100204 MOV essR:sc:61 2.R2 sSET UP EXPECTED 
10933 063544 020102 CMP sARE THEY EQUAL 
06 001406 6EQ 5 ber :6R, IF OK 
10935 063550 005237 002212 INC FATFLG ;BUMP COUNT 
0939 063554 ERRHRD ERRNO, T26TRL,PKTSSR sTSSR INCORRECT AFTER READ DATA 
063554 1044 TR CSERHRD 
063556 001223 .WORD 659 
063560 075622 "WORD  T26TRL 
063562 012166 "WORD PKTSSR 
10940 063564 270%:  CKLOOP ;LOOP IF SELECTED 
seme 063564 104406 TRAP —- C$CLP1 
ea | §FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSE CSESSSSSSSSSSSESSSSSSSSSSeesssessse 
19944 }READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
toate : SSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSesessesesesssse 
iSoa8 063566 013701 073110 Mov T26BFR-6,R1 :GET MESSAGE BUFFER 
10949 063572 010102 MOV R1,R2 sSET UP EXPEC 
10950 063574 052702 040000 BIS 0681714,R2 sSET THE RLS BIT IN EXPECTED 
19323 Of 198 ease 1ORe IF EQUAL CALL IS WELL) * 
19328 $8 e528? 002212 oe gee Bute COUNT 
10957 063610 ERRHRD ERRNO, T26LOP,EXPREC sTHE RLL BIT WAS NOT SET IN XxSTO 


063610 104456 TRAP CSERHRD 
3612 001224 660 
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075452 . WORD 
015614 . WORD 


CSERHRD 


26P8P 
EXPREC 

sLOOP IF SELECTED 
TRAP CsCLP1 


g>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
10110: 
TRAP CsESuB 
FATFLG, #15. sIS ERROR COUNT AT 25 
999% 38R, IF LESS THAN 25 
A PC ,CKDROP sTRY TO DROP THE UNIT 
999%: 


id 


3 
sTEST 6, SUBTEST 7 
: 


i VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 
tO OPERATES PROPERLY. THE TAPE 15 F tRet 


THEN WRITTEN WITH A SERIES OF 
iRECORDS V YING IN LENGTH AND DATA ENT. TAPE 
31S THEN REWOUND AGAIN. EACH TES RECORD THE 
{TAPE IS SPACED FORWARD one RECORD AND A 
; COMMAND I 
3ETC.) ARE VERIFIED. ACH 
sNEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR 
a 
fb 
t- 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
"Trap csesuB 
JSR sSET COMMAND PACKET 
JSR sSET UP OTHER COMMAND PACKET 
JSR sSET UP OTHER PACKET 
pPOCSSSSeeoeeeeeeeeeeseeeeeeeeeeseeeeeSSSEeeeeeeSSeeeeeseseeeeeeSTS 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
: SoSSSSeesesesoeeeseeeseseeeSeSESeseseSeSeSeeeeeseeeSeSeeSeSeCeSeETS 
016114 JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
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06 : F INIT WAS OK 
11998 968742 BS Flas Bad RT 
11011 063720 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
11012 063722 ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
063722 TRAP  CSERDF 
.WORD 661 
“WORD SFIERR 
063 “WORD  SFIMSG 
11013 063732 073100 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
11015 063740 MOV OT26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSsesesesss 
;}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
 ouepesasenoeqssnenseesssssesssssessseessoesssseaeesssensssoessese 
SR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
BcS 263 :0R, IF COMMAND ISSUED OK 
INC FATFLG +BUMP 


Ri s SAVE ENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 


26%: CKLOOP sLOOP IF SELECTED 


FS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSEsssesses 

TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

- euceeeeorsssoseressssessessssescesossseessssosoooesesesesooeoeeses 
PC REWIND sCALL TAPE REWIND COMMAND 
30 1GR, IF _NO PROBLEM 
TSSR(RS),R1 :GEt TSSR 
O5SR.R2 sSET UP EXPECTED TSSR 
RO, R4 sPACKET ADORESS SET UP 
FATFLG sBUMP 

, T26RWN, PKTSSR ;REWIND NOT ACCEPTED 


30$: sLOOP IF SELECTED 


PRSSCPSS SCE PEEVES HEPES RERSS SR EKEE EEG TH SHR ETHER SHH HES SSK HSHSHEREER 

}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

s eusnnecensncoonesecsonsenoenssesenesecasesesnsesosessenseooneseeet 
013701 MOV —«- T26BFR-6,R2 sPICK UP XSTO 





11106 

11107 064176 
11108 064202 
11109 064204 


013737 


012737 
012704 


010300 
004737 


R1,R2 
#8iT1,R2 
R1,R2 


40 
FATFLG 
ERRNO , T26B80T , EXPREC 


0256. ,R3 
FREE.t 
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sSET UP _ EXPECTED 

1561 BOT 81 BIT IN EXPECTED 

iBR, IF EQUAL OK) 

sBUMP COUNT 

; TAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
- WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 

sRECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 


FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSES SES 


}WRITE DATA,CVC#1,ACK COMMAND 


3 
FSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSS SS SESS ESSE SSS 


#140005 , T26PK3 
OT26PK3 ,R4 
65%: 


ERRNO, WRTERR , PKTSSR 


MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 
CKLOOP 


«+ 
Fe or 
aa 


60%: CKLOOP 
120%: 


WRITE DATA. CVC#1 ACK COMPIAND - 
;SET UP R4 WITH PACKET ADORE 


eget PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 

iSET UP RECORD. SIZE IN PACKET 

s ISSUE COMMAND 

tWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

36R, IF OK 


‘ COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
665 
WRTERR 
sLOOP IF SELECTED 
sBUMP RECORD SIZE 
sEND OF 


RECORD YET 
sBR, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED —— 


TRAP 


pFSSSSS SESS SSSS SSeS TSSeSSESeSeSESESSSSRSSESESESSESESSESSESESESEESES 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
SFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESSSSSSSESSS 


JSR PC ,REWIND 
BCS 130% 
MOV TSSRCRS),R1 


sCALL TAPE REWIND COMMAND 
38R, IF NO PROBLEM 
sGET TSSR 





H3 
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11110 064210 000200 
11 064214 


013701 073110 


000002 


11136 064270 
11137 064276 
11138 


073242 
003116 073212 


ERRNO, T26RWN,PKTSSR 


130%: CKLOOP 
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+77 UP EXPECTED TSSR 
PACKET ADDRESS SET UP 


rBURP COUN T ACCEPTED 


sLOOP IF SELECTED 


ESCH SSS SESS SESS SES SSS SESS SS SES SESS ESSE SES EE SES ESES SESE ES EEEEEE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
§ FSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSSSESSESSSSESSESSSSSSSS SESS SS SSESSESSES 


T26BFR-6,R1 
R1,R2 
seini. R2 
R1,R2 


140$ 
FATFLG 
ERRNO , T26B0T , EXPREC 


9256. , T26RSZ 
150% 


sPICK UP_XSTO 

iSET UP_EXPECTED 

13E1 BOT BIT IN EXPECTED 
EXP = REC'D 

BR. IF EQUAL (OK) 

;TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


sSTORE START RECORD SIZE 
sSKIP THE SAPCE THIS TIME 


AP 
- WORD 
- WORD 
WORD 
AP 


FFSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSESSSSESSESSSSSSSSSSSSSSSSSSSSESSesses 


S COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
1=REVERSE 


TISSUE SPACE RECORD 
iaIt 15 SETS DIRECTION - O=FORWARD 


js Soscccccoccoccessccccccosccsesocosocssoocooososooseooossooosoeosee 


145%: 


Pc; SPACE 


BCS 
Hoicns) as 
@SSR ,R2 


RO 
FATFLG 
ERRNO, T26SC ,EXPREC 


ACE ONE RECORD. PARAMETER 

SCALL SPACE ROUTINE 

16R F NO PROBLEM UITH SPACE COMMAND 

ISET UP EXPECTED 7 

‘PACKET ss 

POSITION (SPACE RECORDS) FAILED 
RAP CSERHRD 
‘WORD 668 
“WORD  T26SC 
"WORD  EXPREC 
TRAP 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 
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SEQ 0241 
TEST 6: REREADS 
3336 PSSCSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSESESSESESESSSsesesseeeSS 
t 
11163 sREREREAD DATA,CVC=1,ACK COMMAND 
. 
errs §FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSSSSSseses 
11167 064354 012737 141401 073210 MOV 0141401, T26PK3 sREREREAD DATA, CvCe1 ACK COMMAND 
11168 064362 012704 073210 165%: MOV OT26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
11169 064366 010337 073216 MOV R3, 12652 sSET UP RECORD SIZE IN PACKET 
11170 064372 010465 000000 MOV R4. TSOBCRS) 1 ESSUe COMMAND 
11171 064376 004737 016370 JSR PC, WAITF T FOR SSR TO SET 
11172 064402 016501 000002 MOV TSSR(RS),R1 1GET TSSR CONTENTS 
11173 064406 012702 000200 MOV OSSR,R2 sSET UP EXPECTED 
11174 064412 020102 CMP R1,R2 ARE THEY EQUAL 
11175 064414 001406 BEQ 1 0$ BR, 
11176 064416 005237 002212 INC ATFLG ’ OUNT 
11180 064422 ERRHRD ERRNO, T26WDC,.PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
064422 1044 TRAP  CSERHRD 
064424 001235 .WORD 669 
064426 0751 "WORD T26WDC 
064430 012166 “WORD PKTSSR 
11161 064432 170$:  CKLOOP ;LOOP IF SELECTED 
064432 104406 TRAP = C$CLP1 
11182 064434 013702 003116 MOV FREE ,R2 ;CURRENT BUFFER ADDRESS TO R2 
11183 064440 010 MOV R3,R4 sCURRENT RECORD SIZE 
064442 162704 000400 SUB $256. .R4 iE IRST LOCATION IN BUFFER 
064446 173%: ADD R2,R4 UP POINTER 
11186 064450 021403 CMP (R4),R3 }CHECK DATA READ (R3=DATA ALSO) 
11187 064452 001410 BEQ 1803 36R, IF ALL IS WELL 
11188 064454 011401 MOV (R4),R1 sRECD DATA 
11189 064456 010302 MOV R3,R2 sEXPECTED DATA 
064460 005237 002212 INC FATFLG ; 
11194 064464 ERRHRD ERRNO, T26DTA, EXPREC sDATA READ NOT = WRITTEN 
064464 1044 TRAP § CSERHRD 
064466 0012 .WORD 670 
064470 074322 "WORD T26DTA 
064472 015614 [WORD EXPREC 
11195 064474 180$: CKLOOP sLOOP IF SELECTED 
064474 1 TRAP = C$CLP1 
11196 064476 005724 TST (R4)- sBUMP TO NEXT LOCATION 
11197 064500 160204 SUB R4 I CORRECT Re RECORDS SIZE VALUE 
11198 064502 3 CMP R4_R3 RECORD vet 
11199 064504 001 BNE 173% 18R, IF NOT AT END OF RECORD 
11200 064506 005723 TST R3)- sBUMP RECORD RO SIZE 
11201 064510 010337 073242 MOV 3, T26RSZ sSTORE PRE RECORD SIZE 
1 064514 022703 000410 cre $264. ,R3 sEND OF £ RECORD Yer 
11203 064520 001267 145$ IF MORE RECORDS TO READ 
11204 064522 190%:  CKLOOP + BOOP IF SELECTED 
064522 104406 TRAP = C$CLP1 
11205 064 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
064 Li0i11: 
104403 TRAP C$ESUB 
023727 002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
11207 064534 103402 BLO 999$ :8R, IF LESS THAN 25 
11208 064536 004737 017322 JSR PC, CKDROP sTRY TO DROP THE UNIT 


11209 064542 999%: 


J3 
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11211 3° 

li2i2 3 

$313 sTEST 6, SUBTEST 8 

11215 i VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 

11216 sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

11217 i THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS 

11218 sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

11219 “paratiiens BYTES. 

11220 

11221 : 

11222 8 

11223 t- 

11224 064542 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
064542 76.8: 
064542 104402 TRAP Cs6SsuB 

11225 064544 004737 076000 JSR PC, T26REST sSET COMMAND PACKET 

11226 064550 004737 076072 JSR PC, T26RT2] sSET UP OTHER COMMAND PACKET 

Es 064554 004737 076134 JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 

tet FPSSCSSSSSSSSSSSSSSSSSSS SSS SSS SSSSSSSSSSSSSSESSSES SESS SSS SSSSESSESESSS 

tiSss } ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

tides ; SCSSSSSTSSSSSSSSSSSSSSSSESSS SSS SSS SESESESSSSSSSSSSESSSESSESSEEEEES 

11235 064560 004737 016114 JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 

11236 064564 103407 BCS 20% BR IF INIT WAS OK 

11237 064566 005237 002212 INC FATFLG 

11241 064572 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 

1242 064574 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
064574 104455 TRAP CSEROF 
064576 001237 WORD 671 

003652 -WORD SFIERR 

064602 012154 WORD SFIMSG 

ties; 064604 013737 002172 073100 20%: MOV UNITN, T26DSW 3SET UP UNIT NUMBER 

sien 064612 012704 073060 MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

11287 Pititttiititititiititit titi ii tiiiititi iti i titi it iti iti iit ii tit 

11249 S}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

11233 ~ SHSKSSSSSSSSSeeSeseeeeessesesesesseseseseseesesseseeeeseeeeseeeees 

11253 064616 004737 010752 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

11254 064622 103407 BCS 264 3;6R, IF COMMAND ISSUED OK 

11255 064624 005237 002212 INC FATFLG 3 

11259 064630 010001 MOV RO,R1 sSAVE ENTS OF TSSR 

11260 064632 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
064632 104456 TRAP CSERHRD 
064634 001240 -WORD 67 
064636 -WORD WR 
064640 012154 -WORD SFIMSG 

11261 064642 26%: CKLOOP sLOOP IF SELECTED 
064642 104406 TRAP CSCLP1 


KS 
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FSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSESSSSSSESSSSESSSESses 
TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
| euccccceccocssosoocoscococoooocoooocosoososooosooosossososeoeeseee 


PC ,REWIND sCALL TAPE REWIND COMMAND 
30 36R, IF NO PROBLEM 
TSSRCRS),R1 

@SSR ,R2 


r TSSR 

sSET UP EXPECTED TSSR 
RO sPACKET ADDRESS SET UP 
FATFLG sBUMP COUNT 

ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 


30$: CKLOOP sLOOP IF SELECTED 


sPSSCSSSSSSSSSSSSSESSSSeSeSeSeSTSeeSeSeSeSeseeeeseeeeseeeSSeSeSeeeS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
: SSSSSSSSSSSeeesesseseseseseeeeeeeeeeeeeeeeeeeeeseseseeeeSeSeESESTS 
013701 — T26BFR+6,R1 sPICK UP XSTO 


R1 sSET UP EXPECTED 
#81T1,R2 1SET BOT BIT IN EXPECTED 
R1,R2 REC'D 


sDOES EXP = 
40 18R, IF EQUAL (OK) 
FATFLG COUNT 


sBUMP 
» T26B0T , EXPREC + TAPE NOT AT BOT AFTER as 


sLOOP IF SELECTED 
$256. ,R3 sRECORD SIZE 
FREE,t sSTARTING WRITE BUFFER ADDRESS 
PRRST SH SECS HLA SKS CHES KCK ERKSS ESCH SKE RE RH SSE SHKRH SHS KSHERH TEKS HE 
{WRITE DATA,CVC#=1,ACK,SMB COMMAND 
, eocccccococoocoososooocooooeoosoosoooooooooooooooooooososooooeeses 
‘WRITE DAT DATA, CVC=2 ACK. SUB COMMAND 


65$ 
. :SET PATTERN IN CORRECT REGISTER 
CET uP Re = el ER pacnet 
b 


000000 s ISSUE 
314 065000 004735 T ote Oe ee rer 
11315 065004 000002 
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11316 065010 0 000200 OSSR ,R2 :SET UP EXPECTED 
i 020102 CMP R1,R2 ;ARE THEY EQUAL 


75 s6R, IF OK 
002212 FATFLG BUMP 
ERRNO 


OUNT 
TURTERR , PKTSSR ITSSR INCORRECT AFTER WRITE DATA 


sLOOP IF SELECTED 

(R3)- ;BUMP RECORD SIZE 

$268. ,.R3 sEND OF RECORD YET 

65% IF MORE | RECORDS TO WRITE 
+P 00e IF SELECTED 


TRAP 


TRAP 


80%: 
1208: 
SERS SEREK STEELS LASHES SAREE KTH SEEK SLSE PEK TERK HERES SHCeKEV ERE T SEES 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
, cececccoccosocoocoscosoooooooscosooososseteossososcoosooooosooosees 
sCALL TAPE REWIND COMAND 
1304 TE NO PROBLEM 
SSRC(RS),R1 sent 46 
SSR, R2 sSET UP EXPECTED TSSR 
ERRNO, T26RWN, PKTSSR iB NOT ACCEPTED 


130%: CKLOOP sLOOP IF SELECTED 


SSRN S ESE SMEARS EHKEVECE SLES HS EERE S TERE SEEKS ERAS EEHKSKRECE SERS EHS 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
s eoccococcoccoccosoncocooocoososoocoooooooosoooooosooooosooooseeoes 

MOV T26BFR-6,R1 sPI XSTO 

MOV R1,R2 Set eons 

I #81T1,R2 ey 

R1,R2 ares ex 
BEQ 


$ 
INC é ATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


sLOOP IF SELECTED 
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11369 865155 SdGad0 COMO? 075242 i > veces (SKIP SAPCE THIS TIME 


FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSses 


ESP I5°SEFE OERRERIA EPMA TY-AEEREE MPEP OF vecons 


t 
F SSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESSSSSSSSss 


012703 145%: £1.83 RECORD PARAMETER 
004737 JSR . SPACE a ¥ 
3228 eon PROBLEM WITH SPACE COMMAND 
SSRCRS),R1 
@SSR ,R2 


RO 
FATFLG 
ERRNO, T26SC,EXPREC POSITION (SPACE os maces} 9 FAILED 


T26RSZ RB sRECORD SIZE 
FREE, T26RB sSTARTING READ BUFFER ADDRESS 


sSSSSSSSSSSSSSSESeSSSSESSETeSSSSSSSSTESSETESSESSSEESSeESESESSESETESS 
8 

sREREAD DATA, ACK,CVC=1,SWB COMMAND 

; SeSeersseseesesessesesesseeeeseseeeeeeeeeeeeeeeeseeseseeeeeeeseees 


all SET Up Re utTH PACKET ADDRESS 


D SIZE IN PACKET 


151401 
073210 165%: 
073216 


016370 

000002 

000200 

11406 065270 002212 
11410 065274 
065274 
065276 
065300 
065302 
11411 065304 
065304 
11412 065306 
11413 065312 
11414 065314 
$34 15 065320 
16 065322 


4 4 065324 
Hai? 065326 


sLOOP IF SELECTED 
TRAP 


FER ADDRESS TO R2 
° Pe aan IN BUFFER 
CK DATA READ (R3*DATA ALSO) 
Basta 


So55s8 3 espe 
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R3,R2 sEXPECTED DATA 
FATFLG ;BUMP 
ERRNO, T26DTA, EXPREC sDATA READ NOT = WRITTEN, 


sLOOP IF SELECTED 


sBUMP TO NEXT LOCATION 
iCORRECT RECORDS SIZE VALUE 
sEND OF RE YET 


tis 433 geass 3 MORE RECORDS TO WRITE 
11434 065374 eO0P IF SELECTED noe 


RAP cs 
g>>>>>>>>>>>> o° Se >>>>>>>>>>>> 
: * TRAP CHESUB 
ooneneee sIS ERROR COUNT AT 25 


36R, IF LESS THAN 25 
PC ,.CKDROP sTRY TO OROP THE UNIT 


NEXT COMMAND opp 
REVERSE) AND T 
RE ARYING 
CONTAIN ITS RECORD pen EACH RECORD 
TAPE), The TAPE LLOMING “SEGUENCE 1S EXECUTED. 
i. Ug fenetp HerT Cosme LTH OrPek 18 151eD 


eee are Rene 


pia 


BYTE COUNT ay BS RERE Is SET 
LENGTH « SO NO 
TONAL CONDITIONS SH 


_ 





B4 
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BGNSUB 3 >>>>>>>>>>>> aoe >>>>>>>>>>>> 


C#BSUB 
JSR PC, T26REST 
T26CNT 


CLR 
JSR PC, T26RT2 OTHER CKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


p FSCS TESTES SESS ESTES SES SSES SESS ESSE ESS ES SSE TESE TESS ESSE SEES EE 
‘ 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

| Seeeeeesceeeceeeseeseeeeeeeeeeeeeseeeseeseeseseeeeeeseseeseeeeeees 


016114 JSR PC, SOFINIT 00 INITIALIZE ON CONTROLLER 
BCS 203 :BR IF INIT WAS OK 

002212 INC FATFLG ;BUMP QUNT 
MOV CONTENTS OF TSSR REGISTER 


RO,R1 
ERROF ERRNO, SFIERR, SFIMSG SFATAL ERROR TSSR WAS aa A 


C$€ROF 
681 
: SFIERR 
‘WORD SFIMSG 
20%: MOV UNITN, T26DSW ;SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
FFSSSSSSSSSSSSSSSSS SSS SSE SSSESSSSSSESSSSSESSSSSESSESSSESSSSSSSESSESSSSESSES SS 
{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: SSSSSSSSESSSSSSESSSSSSSSSESESSSSSSSESSSSSSESESSSSESSSSSSSSSSSSSESKESSESSES SSS 
USR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 263 :8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV 0,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
~ WORD 
“WORD 
"WORD 
TRAP 
SFSSSSSSSSSSSSESSSSSSSSESSSSSSSSESSSESSSSSSSSSSSSSSSSSSSSESSSSSESSSESSESSS 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
- euepansnenausereneannennennenenessesensennnennnneeeenennnesenenes 
JSR PC REWIND sCALL TAPE REWIND COMMAND 


3 BCS 303 3BR, IF NO PROBLEM 
11522 065530 MOV TSSRC(RS),R1 :GET TSSR 


26%: CKLOOP sLOOP IF SELECTED 
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11333 S88i0 918593 000700 HOV ROoRaNe IBACKET ADDRESS SET UP 


SEQ 0248 


11525 065542 005237 002212 INC FATFLG ;BUMP COUNT 
11529 065546 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
065546 104456 TRAP § C$ERHRD 
06 001255 . 83 
06 074 : 26RWN 
065554 012166 "WORD PKTSSR 
11530 065556 30$: CKLOOP ;LOOP IF SELECTED 
dae 065556 104406 TRAP = C$CLP1 
tase BR ee Re Be he ae eae he are he he hea ae ae af ae eee ie ae ae eae eae Bee oe ea me a ae a 
3 
11334 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
thea] FFSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSESSSSSSSSSSSSSS SSS SSESSSRSESSSSESSSE SESE 
11538 065560 013701 073110 MOV T26BFR+6,R1 ;PICK UP XSTO 
11539 065564 010102 MOV R1,R2 3SET UP EXPECTED 
11540 065566 052702 000002 BIS o6iT1,R2 1SE1 BOT BIT IN EXPECTED 
11541 065572 020102 CMP R1,R2 S EXP = REC'D 
11542 065574 001406 BEQ 403 iBR, IF EQUAL COK) 
11543 065576 005237 002212 INC FATFLG ;BUMP 
11547 065602 ERRHRD ERRNO, T26B0T ,EXPREC }TAPE NOT AT BOT AFTER REWIND 
065602 104456 TRAP § C$ERHRD 
065604 001254 .WORD 684 
065606 074255 “WORD T26B0T 
065610 015614 "WORD EXPREC 
11548 065612 40$: CKLOOP sLOOP IF SELECTED 
065612 TRAP —- C$CLP1 
11549 065614 012703 000400 MOV $256. ,R3 sRECORD SIZE 
11550 065620 013737 003116 073212 MOV FREE, T26R8 sSTARTING WRITE BUFFER ADDRESS 
ttase FESSSSSSS SSS SSS SSSSSS SSS SSS SSESSSSESSSSSSSSSSSESSESSSSSSSSESSSSESSESSESSESVSS 
° 
11334 ;WRITE DATA,CVC=1,ACK COMMAND 
555 7 
11336 FFSSSSSSSSSSSSSESSSSSSSSESSSSSSSSSSSESESSSSSSSSSSSSSSSSSSSESSSSSSSSESSeses 
11558 065626 012737 140005 073210 MOV #140005, T26PKS sWRITE DATA,CVC=1,ACK COMMAND 
11359 065654 012704 073210 a MOV OT26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
S60 5640 $ 
11561 065640 010337 073216 MOV R3,726SZ sSET UP RECORD SIZE IN PACKET 
11562 065644 013777 073236 115244 MOV T26CNT , AF REE sMOVE TAPE RECORD NUMBER TO BUFFER 
11563 065652 062737 000001 073236 ADD 7 :NUMBER READY FOR NEXT RECORD 
11564 065660 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 
11565 065664 004737 016370 JSR WAITF ;WAIT FOR SSR TO SET 
1566 065670 016501 MOV TSSR(RS),R1 :GET CONTENTS 
11567 065674 012702 000200 MOV R2 sSET Wp EXPE: 
065700 020102 CMP Rl R2 sARE 
11569 065702 001406 BEQ 7 :BR, I 
1 065704 005237 002212 INC FATFLG 1BUNP COUNT 
11574 065710 ERRHRD EPRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
065710 104456 TRAP  CSERHRD 
065712 00 .WORD 685 
065714 "WORD WRTERR 
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11575 065720 75%: sLOOP IF SELECTED 
065720 


104406 TRAP CsCLP1 
11576 065722 005723 sBUMP THE RECORD SIZE 
CMP 0 sMAXIMUM SIZE YET 


:BR, IF AT END OF WRITE SEQUENCE 
sWRITE MORE RECORDS 
sSET RECORD COUNTER BACK TO ZERO 
FSS SSSSSSSSSSSSESSSSSSSESSSSSSESSSESSSESSSSSSESSSES SSS SSS SSESSESSSSSSsesesesesse 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
, cesencssecssooessesiibessoesessesosesesesnseosssesessessseooenneess 
JSR PC , REWIND sCALL TAPE REWIND COMMAND 
BCS 1 ;6R, IF NO PROBLEM 
MOV TSSR(RS),R1 :GET TSSR 
MOV RO,R4 ;PACKET ADDRESS SET UP 
INC FATFLG sBUMP C 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 


120%: 


TRAP 
: WORD 
TRAP 
FFSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSESSSSESSESSSSSSsessesese 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
ageaesesenemeseensennenensesenieseeebennnensensenseneneeneneneet 
013701 T26BFR-6,R1 ;PICK UP XSTO 
HOV R 3SET UP EXPECTED 
#8iT1,R2 3SET BOT BIT IN EXPECTED 
R1,R2 3 3 c'd 
1356 :BR, IF EQUAL (OK) 
RRND’ T26BOT ,EXPREC ;TAPE NOT AT BOT AFTER 
tae Tee P 


130%: CKLOOP sLOOP IF SELECTED 


11616 066024 sLOOP IF SELECTED 
066024 T 


11617 066026 MOV 92356. , T26RSZ sSTARTING RECORD SIZE 
000420 BR 1406 sSKIP OVER THE SAPCE THIS TIME 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSsessss 


ISSUE SPACE RECORDS COMMAND 
{8IT 15 SETS DIRECTION - O=F 


b 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSSSSSSSSSSSsess 


- VALUE IN R3 SETS NUMBER OF RECORDS 
ORWARD 1=REVERSE 





E4 
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012703 000001 132$: #000001 ,R3 SPACE COMMAND (1 FORWARD) 
JSR PC, SPACE sCALL SPACE ROUTINE 
BR IF NO TROUBLE 


SSR 
1SET UP EXPE rep T 
sPACKET Sef uP 
FATFLG 


sBUMP_ COUNT 
ERRNO, T26SC ,PKTSSR i SPACE (FORWARD) FAILED 7 


5 
TSSRCRS).RI 
@SSR ,R2 


140%: sLOOP IF SELECTED 


TRAP 
T26RSZ RZ sRECORD SIZE 
150%: FREE, T26RB sSTARTING READ BUFFER ADDRESS 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSESSSSSSSESSESESSESSSSSsesesessssse 
{REREAD DATA,CVC#=1,ACK, OPP COMMAND 
: SSSSSSSSSSSSSSSSESSSSESSSSSSSSSSSSESSSSSSESSSESSSSESSESSESSSSssessessesssessesse 
#161401, T26PK3 REREAD DATA ACK, OPP COMMAND 
OT26PK3 .R4 sSET UP rae ae PACKET ADORESS 
SET UP RECORD" SIZE IN PACKET 
sISSUE COMMAND 
WAIT FOR SSR TO SET 
GET T 


165$: 


OUNT 
HTSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
WORD 689 
“WORD ‘T26RRF 
sLOOP IF SELECTED : 
CéCLP1 
FIRST WORD FROM READ BUFFER 
$F NBetBOSETEON connect 
Veep GOING POSTION Ox 


Bure 
sTAPE POSITION INCORRECT 


MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEG 
INC 
ERRHRD 
CKLOOP 
MOV 
MOV 
CMP 
BEQ 
INC 


sBUMP TAPE RECORD COUNTER 
sNEXT RECORD SIZE 


S48 2 
% 





F4 
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SEQ 0251 


11678 066246 000137 066036 JMP 132% sKEEP GOING MORE RECORDS 

11679 066252 200%: 

11680 066252 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

10113: 

11661 oeessa bos707 002212 000017 CMP FATFLG,@15 IS ERROR COUNT AT 2 — 

re irese an iy Ho bess te uae 

11684 066270 9998: : F 

11685 

11686 se 

11687 8 

rts sTEST 6, SUBTEST 10 

11690 i VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 

11691 sAND SWB=1 wat aan PROPERLY. THE TEST SEQUENCE IS 

11692 sTHE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 

11693 ; VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

11694 sSWAPPED BYTES. 

Hie : 

11697 ; 

11696 3 

11699 3 

11700 

11701 066270 BGNSUB g>>>>>>>>>>>> oa SUBTEST >>>>>>>>>>>> 
066270 6.10: 
066270 104402 CsB6SUB 

il 066272 004737 076000 JSR PC, T26REST sSET COMMAND <,~ on 

11703 066276 005037 073236 CLR T26CNT CLEAR TAPE crtem’ Cinawon pate 

11704 066302 004737 076072 JSR PC, T26RT2 OMEN Einnwed Pacey 

ees 066306 004737 076134 JSR PC, T26RTS ET UP OTHER 

Tes ed sSSSSSSSS SSS SSS SSSSSSSSSSSESSSSSSSSSSSSSSSSSSSETesesseseseseSeeEeSeS 

tiree } ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

13713 ; SSSSSSSSsessseoseeeeeesesesseeseeeseeeeeseeeeeeeseeeeeeeeSeSeseeesS 

nis 066312 004737 016114 JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 

11714 066316 103407 BcS ’ NIT WAS OK 

11715 066320 005237 002212 INC ATFLG s 

11719 066324 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

11720 066326 ERRDF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
066326 104455 TRAP CSEROF 
066330 001265 -WORD 69 
066332 S2 «WORD SF 
066334 012154 «WORD SFIMSG 

1372} 066336 013737 002172 073100 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 

11738 066344 012704 073060 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

13723 pSESSSSSSSSSSSsssesesseeseeeeseseSeSTeSeTeseeeeeeeeseseseoeeeeeSTSTS 

117 }WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


11729 ; SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSesessse 





G4 
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013701 
010102 


010752 
002212 


000400 
003116 073212 
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JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 26% sBR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC ramen 
~WORD 
- WORD 
26%: CKLOOP sL.00P IF SELECTED 
TRAP 


pPSSSCS SSS SESS S SESS eSE SSE SS ST SSE SST SESS SES SSE SESE SESS ESSE EE TEESEE 
} ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
Pee CERHEKE eK ECE ECE HERE ES KKH RSHK EH KERESKK ETRE KEE HRELSHE REESE EEE TESS 


JSR PC, REWIND sCALL TAPE REWIND COMMAND 

MOV TSSR(RS),.R1 iGET TSSR 

MOV @SSR,R2 ;SET UP EXPECTED TSSR 

BCS :BR, IF NO PROBLEM 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED “te 
. WORD 
. WORD 
“WORD 

30¢:  CKLOOP ;LOOP IF SELECTED 

TRAP 


sPSSSSSS SSS SSeS SSeS SEES SSS SSESSESSSE SEES SEES ES SSSSESESESE SEES EETESS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


$ 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSSESSSSSSSSSS 


MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 3SET UP EXPECTED 
BIS #68iT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40 s8R, IF EQUAL (OK) 
TNC FATFLG , COUNT 
ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
40%:  CKLOOP ;LOOP IF SELECTED va 
MOV $256. ,R3 sRECORD SIZE 
MOV FREE, T26R8 sSTARTING WRITE BUFFER ADDRESS 


FSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSSESSSSSSSSSSSSSSESSSS SSS SSSSS 
é 


SEQ 0252 


H4 
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TEST 6: REREADS 
sWRITE DATA,CVC=1,ACK COMMAND 
; SSESTSSSS ESSE SESS SSS SS ESTES SSS ESE SESS SE SESE SESE EEESESERESEESEEES 


140005, T26PK3 WRITE DATA. CVC=1 ACK COPIAND 
OT26PK3.R4 ;SET UP R PACKET ADORE. 
R3,126SZ SET UP RECORD SIZE IN P 

T26CNT, AFREE SEVE TAPE RECORD NUMBER 70 BUFFER 
01,7 }NUMBER READY FOR NEXT RECORD 

R4, TSDBCRS) OMMAND 


ISSUE 
PC WAITF }WAIT FOR SSR TO SET 
TSSR(RS),R1 sGET TSSR CONTENTS 
SSR, R2 SET UP EXPECTED 


hats? 140005 073210 
012704 073210 


010337 


65%: 
grass 
0732 114370 
000001 073236 


016370 
000002 
000200 


FATFLG sBUMP COUNT 
ERRNO ,WRTERR , PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


. ie 695 
-WORD PKTSSR 
TRAP CSCLP1 


 iebetain gs 


;LOOP IF SELECTED 
(R3)- :BUMP THE RECORD SIZE 
$268. .R3 rAXIM SIZE YET 
120% IF AT END OF WRITE SEQUENCE 
65$ orite MORE RECORDS 
T26CNT sSET RECORD COUNTER BACK TO ZERO 
FFSSSSSSSSSSSSSSSSSSSESSSSSSESESSSSSSESSSESSSSSSSSSSESSESSSSESSSSESSSsesesessesse 
FISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
euceussecocesesnscnqssnsssonssenesssscoenssesserensusnseneoesenes 
JSR PC, REWIND sCALL TAPE REWIND COMMAND 
BCS 130$ ' NO PROBLEM 
MOV TSSR(RS),R1 :GET TSSR 
MOV RO,R4 sPACKET ADDRESS SET UP 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 


120%: 


TRAP 


130%:  CKLOOP ;LOOP IF SELECTED . 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSesesesesesse 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


: SSSSSSS SSS SSS SSS SSSSSSSSSSSSSSSSSSSSESSSSESSSESESESESESSESESEEESESS 
013701 MOV T26BFR+6,R1 sPICK UP XSTO 





14 
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SEQ 0254 
TEST 6: REREADS 


1834 066652 010 R1,R2 :SET UP CTED 
183s perrty 939388 000002 Bs setii.na 1SE1 BOT BIT IN EXPECTED 
11836 066660 020102 CMP S EXP = REC'D 
11837 066662 001406 BEQ a teee i8R, IF EQUAL COK) 
11838 066664 37 002212 INC FATFLG ;BUMP COUNT 
11842 066670 ERRHRD ERRNO, T2680T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
Qeeere dole "oro son 
066674 O7aess “WORD T26B80T 
066676 015614 “WORD EXPREC 
11843 066700 135%:  CKLOOP ;LOOP IF SELECTED 
066700 104406 R CSCLP1 
11844 066702 012737 000400 073242 MOV 6256. , T26RSZ sSTART RECORD SIZE 
11845 066710 000420 BR 140$ ;SKIP OVER SPACE 
tees heehee INE ome Onn eR emma mE: 
11849 TISSUE SPACE RECORDS C - VALUE IN R3 SETS NUMBER OF RECORDS 
11850 :BIT 15 SETS DIRECTION - O=FORWARD  1=REVERSE 
3 
Ht FSSSSSS CSSSSSSSSSSSSSSSSESSSESSSESSSESSSSESSSSSSESSSSSSESSSSSSSSSSESSesesesesesse 
11854 066712 012703 000001 136%: MOV #000001 .RS :SET UP SPACE COMMAND (1 FORWARD) 
1185S 066716 004737 010560 JSR PC, SP sCALL SPACE ROUTINE 
11856 066722 103413 BCS 1404 BR TF NO TROUBLE 
11857 066724 016501 000002 MOV SSR(RS),R1 sGETt 
11858 066730 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 
11859 066734 010004 MOV RO,R4 3PACKET ADORESS SET UP 
11860 066736 005237 002212 INC FATFLG 3BUMP COUNT - 
11864 066742 ERRHRD ERRNO, T26SC,PKTSSR ;SPACE (FORWARD) FAILED 
066742 104456 T CSERHRD 
066744 001272 98 
066746 073657 "WORD  126SC 
066750 012166 é PKTSSR 
11865 066752 140%:  CKLOOP ;LOOP IF SELECTED 
066752 104406 TRAP —s-_-« C$CLP1 
11866 066754 013703 073242 MOV T26RSZ,R3 sRECORD SIZE 
11867 066760 013737 003116 073212 150%: MOV FREE , T26RB sSTARTING READ BUFFER ADDRESS 
tad FFSSSSSESSSSESSSSSSSSSSSSSSSSSESSSSSESSESSSSSSSSSSSSSSSSSSSSESSSESSSsesesesesse 
3 
11871 sREREAD DATA,CVC#1,ACK, OPP COMMAND 
3 
11873 FS FSSSSS HY SSSSSSSSSSSSSSSSSSSESSSSSSESSSESESSSESSSESSSSSSSSSSSSESSSSeSesesesesesees 
11875 066766 012737 161401 073210 MOV #161401, 72 . T26PK3 sREREAD DATA ACK, OPP COMMAND 
11876 066774 012704 073210 165%: MOV 3SET UP R4 ween PACKET ADDRESS 
1877 067000 010337 073216 MOV RS, ts SET uP RECORD SIZE IN PACKET 
11878 067004 01046 MOV R4. TSDBCRS) 
11879 067010 737 016370 JSR WAITE er ce FoR sone SSR_TO, TO Set 
11880 067014 016501 000002 MOV Teen ),R1 
11881 067020 012702 000200 MOV @SSR,R2 SET wee EXPECTED. 
11882 067024 020102 cre Ri R2 ARE THEY EQUAL 
11883 067026 001406 Q 1706 :BR, 
11884 067030 37 002212 INC ATFLG 1BUHe COUNT 
11888 067034 ERRHRD ERRNO, T26RRF ,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
067034 104456 TRAP C#ERHRD 


J4 
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TEST 6: REREADS 
067036 001273 . WORD 
067040 07 . WORD 


. WORD 
sLOOP IF SELECTED 


TRAP 
FIRST WORD FROM READ BUFFER 
:SET up ExPECTED 
IS TAPE POSITION CORRECT 
;KEEP GOING POSITION OK 


sBUMP COUNT 
s TAPE POSITION DEOOES 


ZE YET 
IF AT END OF THE SUBTEST 
GOING MORE RECORDS 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10114: 
TRAP CsESUB 
FATFLG,#15. sIS ERROR COUNT AT 25 
9994 3;BR, IF LESS THAN 25 
PC ..CKDROP sTRY TO DROP THE UNIT 
999%: 
$e 
iTEST 6. SUBTEST 11 
iVERIFIES THAT A REREAD NEXT COMMAND READING A 
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
i TAPE STATUS ment TERMINATION WITH THE RECORD LENGTH 


sLONG CRLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
iSTATES OF OPP (O AND 1). 


BGNSUB g>>>>>>>>>>>> er pees >>>>>>>>>>>> 
ef TRAP = sCSBSUB 

JSR PC. sSET COMMAND PACKET 

JSR ee ssentg sSET UP OTHER COMMAND PACKET 

JSR + T26RT sSET UP OTHER COMMAND PACKET 

sSSSSSSSSSSSSSSSSSSSSSSSSSSSSseSssesssessesesesesesesesseeeeeeseees 


;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
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3 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SS 


016114 JSR PC, SOFINIT ;00 INITIALIZE ON CONTROLLER 
BCS 203 ;8R IF INIT WAS OK 


002212 INC FATFLG ; 
MOV Ri sCONTENTS OF TSSR REGISTER 
ERRDOF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 


WORD 
. WORD 
WORD 


013737 20$: MOV _—sUNTTN, T260Sw :SET UP UNIT NUMBER 
012706 MOV —«-@T26PACKET, Ra :SUBROUTINE NEEDS PACKET ADDRESS 
8 FSSSSSSSSSSSSESESSSESSSSSSSSSSSSSSSSSSSESSSSSSESSSSSSSSSSSSsesessesssssses 
SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: ERSTE KE CREEK ERE CHETEK SE SCEN TSE ERS KTEES EK EEK KSEKERECK HERA SHESK EEE 


11956 
11957 067220 004737 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
11958 067224 BCS 263 ;8R, IF COMMAND ISSUED OK 


INC —-FATFLG 
MOV _—s- RO Ri SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG {WRITE CHARACTERISTISC FAILED 


; WORD 
“WORD 
TRAP 
BSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSESSSSSSSSSSSSSESSSESSsSsesssses 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
: SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSsessesssssse 
PC, REWIND CALL TAPE REWIND COMMAND 
TSSR(RS),R1 1GET TSSR 
" SET UP EXPECTED TSSR 
308 1BR, IF NO PROBLEM 
RO.R4 IOACKET ADDRESS SET UP 
FATFLG ;BUMP 
;REWIND NOT ACCEPTED 


26%: CKLOOP sLOOP IF SELECTED 


30$: CKLOOP sLOOP IF SELECTED 


sPSSSSSS SSS SSS ESSE SEES SES SESSSSESEE SSE TEEEESESESSSESSESSSEESESSEESS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
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TEST 6: REREADS 


g 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSS 


013701 T26BFR-6,R1 sP yp xsT XSTO 
010 R1,R2 Hoa 
e8iT1,R2 
R1,R2° 
40 
FATFLG ’ 
ERRNO, T2680T , EXPREC ;TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
Ree toeRe sSTARTING WRITE BUFFER ADDRESS 


FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSESesessesse 
WRITE DATA,CVC*1,ACK COMMAND 
; SSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSESSSSessssesses 


#140005, T26PKS sWRITE DATA, CvCod ACK COMMAND 
OT26PK3.R4 3SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
COMMAND 


$12. 


65%: 
R3,126SZ 
R4. TSDBCRS) 
PC. WAIT 
TSSRCRS) AL 
ts 
ot 
FATFLG 
ERRNO, WRTERR ,PKTSSR 


75$: CKLOOP sLOOP IF SELECTED 


PSSST PUSS HES EERAH SSE EE SES SKE KECSERRECKSSCRSERISE KES HRECRARAKEHSHESK SERRE 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
- SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsssesssssse 
PC CALL TAPE REWIND COMMAND 
TSSACRS), RL ; cert 
EXPECTED TSSR 


ee Bd 
Ri am ecsse | eT 
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130%: CKLOOP sLOOP IF SELECTED 


: eee ed 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; SeSeeeesessesesseseeeseeeeeseeeeseeeeeEseeseseeeeeeseeeeeeeeESETSE 


T26BFR-6,R1 sPICK UP XSTO 

sSET UP EXPECTED 
#81T1,.R2 +SET BOT BIT _IN EXPECTED 
R1,R2 ;D0ES EXP = REC’ 
140% 1BR IF EQUAL (OK) 
FATFLG 


OUNT 
i TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
- WORD 
WORD 
sLOOP IF SELECTED 


DEC R3 sSET RECORD SIZE TO 5i1. 
FREE , T26RB iSTART READ BUFFER ADDRESS 


SSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSsesssss 

iREREAD DATA,CVC#1,ACK,OPP=1 COMMAND 

: SSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSESSESSSSSSESSssessssesse 

REREAD DATA,CVC#1,ACK,OPP=1 COMMAND 
RET UP ha Ui in PACKET RDORESS 

}SET UP RECORD SIZE IN PACKET 


;WAIT FOR SSR TO SET 
GET TSSR $ 


161401 
073210 165%: 
073216 
016370 
000002 


100204 


Aa ess5ssss 


002212 
ERRNO, T26TRL ,PKTSSR iTSSR INCORRECT AFTER =“ DATA 
sata 


170%: CKLOOP sLOOP IF SELECTED 


pSSSoSSeoeeseseseseseeeeeSeeeSeSeTeSSSeSEeSeeVeSSSeESESECETSSESeSESS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 
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§ FSSC SESS SS SSS SESS SS SSS SSS ESSE SS SSS SSS SSS SSS SSS SSS ESS ESS SeSeSTSETSTS 


ARE THEY E 
1BR TF CQUAL TALL IS WELL) 


ERRNO , T26LON, EXPREC THE RLL BIT WAS NOT ed hi 


#511. ,R3 sSET UP SIZE OF RECORD 
FREE, 126R8 


000777 
003116 iSTARTING READ BUFFER ADDRESS 


§ FSSC SSS SSS SSS SSS SSS SSS SSS SSS SSS SSS SS SESE SSS SS SESS SS SSeSeeeeseeeeeee 


}REREAD DATA,CVC#1, ACK COMMAND 


8 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSES SSS SS SSS SESESSESeETS 


O73210 Ot? sess, stacens.na me iSeT Ra UtH PARKET Kooness 


073216 RECORD SIZE IN 
Ra: teeetes) 


Pee 
016370 PC; WAITF TO SET 
oodode TSERCRS) Rt igen, cowrens 
100204 @SSR!SCI6IT2,R2 CTED 
R1,R2 ARE EQUAL 


370% 
002212 FATFLG COUNT 
ERRHRD ERRNO, T26TRL ,PKTSSR ; SSR INCORRECT AFTER =" DATA 


3708; oop sLOOP IF SELECTED 
TRAP 


SRTCSHSCSREKSSKSKSLSSS SES CCHS KSEE CRS SS HSRH SSS SEE SHSSKERE SCHR SLE AE 

}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

OS ge mapa = = RRNNNRRpRRRN 
013701 T26RFR-6,R1 


re see nro 
BLA? ns SET WE EMPECIED OO secrep 
R1,R2 ie Tey E0 
308 18R, IF ALL IS WELL) 
ERRNO, T26LON,EXPREC | THE RLL BIT WAS NOT SET IN xSTO 
AP SHERARD 





BS 
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067770 

067772 
12146 067774 

067774 
12147 067776 

067776 

067776 
12148 070000 
12149 070006 
12150 070010 
12151 070014 
12152 


075370 
015614 


104406 


002212 
017322 


076000 
076072 
076134 


016114 
002212 


002172 
073060 
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000017 


073100 


.WORD T26LON 
-WORD EXPREC 
380$: CKLOOP 
TRAP C$CLPi 
ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>> >>> 
L10115: 
TRAP CsESUB 
CMP FATFLG, #15. 31S ERROR COUNT AT 25 
BLO 999% 1BR IF LESS THAN 25 
JSR PC, CKDROP TO DROP THE UNIT 
999%: 
t? 
sTEST 6, SUBTEST 12 
i VERIFIES THAT A REREAD NEXT COMMAND READING 
sRECORD SHORTER THAN THE eae cat BYTE COUNT CAUSES 
V TAPE Tans & ALERT TERMINATION WITH iA = oe LENGTH 
RESIDUAL BT ae comit am IT IS VERIFIED T THE 
iRES I ER CRBPCR) IN THE MESSAGE BUFFER 
sCONTATI SOPER NONZERO VALUE (E.G., THE 
EON ERONCE 6 BETWEEN THE ORIGINAL BYTE COUNT AND THE 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (O AND i). 
3 
3 
3 
, BGNSU8S 3 >>>>>>>>>>>> en fees >>>>>>>>>>>> 
"TRAP = C$BSUB 
JSR PC, T26REST 3SET COMMAND PACKET 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
§FSSSSSSSSSSSESESEESSSESSESSSESEESESESSESSSESESESESESES ESE SSSESSE EES 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
: SESSSSESSSSSSSSSSSSSSSSSESSESRESSESSSEESS ESSER ESESE SES SESESESSEEES 
JSR PC ,SOFINIT sD0 INITIALIZE ON CONTROLLER 
BCS 203 18R IF INIT WAS OK 
INC FATFLG 38 
MOV RO,R1 sCONTENTS OF TSoR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG HFATAL ERROR TSSR WAS NOT OK me 
"TORO 712 
[WORD SFIERR 
-WORD SFIMSG 


MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV @T26PACKET ,R4 


§FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSS SSS SESS SS SSESSESSSSESESES 
B 


sSUBROUTINE NEEDS PACKET ADDRESS 


SEQ 0260 
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TEST 6: REREADS 
12195 
12196 
12197 
12198 
12199 070070 


012154 
104406 


12210 
12211 
12212 
12213 
12214 
12215 070116 


013701 


12245 070214 


000400 
003116 073212 
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;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

_ ee eT 
uSR WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS fl ;BR, IF COMMAND ISSUED OK 

INC ATELG sBUMP C 

MOV SAVE CONTENTS OF TSSR 

ERAND, WRTMSG , SFIMSG ;sWRITE CHARACTERISTISC FAILED 


WORD 
TRAP 
FFSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSESSSSESSSSESSE SESS 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
5 MENORERSENENENRRNERNENNeHRESNsENONEReenenRDEsNNeNTateesEnCEeet 
PC ,REWIND ;CALL TAPE REWIND COMMAND 
TSSRCRS),R1 3GET TSSR 
@SSR,R2 SET UP EXPECTED TSSR 
308 BR, IF NO PROBLEM 


RO,R4 
FATFLG sBUMP COUNT 
ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 


26%: CKLOOP sLOOP IF SELECTED 


30$: CKLOOP sLOOP IF SELECTED 


PERSE ESAEE LEEKS RHEE REE KOR KEKE KK CAE KEKE SH HEE EH EH Ae EK ASE ESR HOH 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
s eueenueeneusanenensensnnnnensennnenmeNnnnennasenenesennenIeeneees 
MOV T26BFR+6,R1 ;PICK UP XSTO 
MOV R1,R sSET UP EXPECTED 
#6iT1,R2 1Se BOT BIT _IN EXPECTED 
R1,R2 S EXP = REC'D 
i8R, IF EQUAL COK) 
;BUMP COUNT 


40 

FATFLG C 

ERRNO, T26B0T , EXPREC i TAPE NOT AT BOT AFTER as ty Hd 
RAP 


. WORD 
TRAP 
sSTARTING WRITE BUFFER ADDRESS 


;LOOP IF SELECTED 
$256. ,R3 sRECORD SIZE 
FREE, t26R8 
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012737 
012704 


010337 
01046 


013701 
onov02 


020102 


40005 
O78210 
073216 
000000 


365 °9 


000200 


002212 
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073210 


PESSSSSSS SSS TESTS SSS SSE SESSSE SEES SESS ESSE SEE ESESESESEE SESE SESTEESE 
’ 
sWRITE DATA,CVC=1,ACK COMMAND 


q 
BSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSS 


o12eKS sna SET UP Ra WITH PACKET ADDRESS 


ee VP cree RECORD SIZE IN PACKET 


er ee FOR SSR R GoNrENT TO - 


65%: 


See Wey €6 EQUAL. 
3sBR, IF OK 


G sBUMP COUNT 
ERRNO, WRTERR ,PKTSSR sTSSR INCORRECT AFTER WRITE OATA. 


“WORD 
75$: oop ;LOOP IF SELECTED 
TRAP 
1208: 
RES SRER ESR SHSTSESERSEKE ET HKRE LSTA CSEA TAPERS CHKHS ERK ETKESAHKSE HAE KKE 
ISSUE REWIND COMMAND 70 SELECTED TAPE DRIVE 
~auscusecesensseqcenceqecessoeeessosessosenesseoresseesoenseeeeeess 
PC, REWIND sCALL_ TAPE REWIND COMMAND 
TSSACRS),R1 ' TSSR 
@SSR,.R2 ;SET UP EXPECTED TSSR 
30% 3 IF NO PROBLEM 
R4 sPACKET ADDRESS SET UP 
FATFLG sBUMP 
ERRNO, T26RWN, PKTSSR sREWIND NOT ACCEPTED 


~ 


130%: CKLOOP sLOOP IF SELECTED . 
PRESSES SSSKEVSS HSS ESS SKSKSHSE SHS SSCS SSH SESS SARE HK HS ESCH SKAKEEEKREKESHED 


}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; SHSSSSSSSeSeSeeTeSeSeeSTSSSSTeSSSeSESESSSESSESEESSEESESESETeSTSESS 


[esgen-6. R1 He UP _XSTO 
R2 UP CTED 
SET BOT BI IN EXPECTED 
sD0ES EXP = REC'D 





ES 
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13800 nee 


013701 


161401 
te) 


BEQ Bie 
INC ATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


CKLOOP 


MOV #512. ,R3 
MOV FREE , T26R8 
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;6R, IF EQUAL (OK) 

+ OUNT 

TAPE NOT AT BOT AFTER ND 

' ry 
. WORD 
“WORD 
“WORD 

;LOOP IF SELECTED 

TRAP 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSSSSSSSESSSSESSSSESSSS 


SREREAD NEXT, ACK,CVC=1,0PP=1 


3 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSSSSSSSSSSSSSsSes 


Hi et pas Lyons 


Stes, 


TSSRCRS) 8 gh 
@SSR!SC!BI 2.R2 
R2 


165%: 


BEQ 1768 
INC FATFLG 
ERRHRD ERRNO, T26TRL, PKTSSA ° 


170%: oop 


sREREAD NEXT sCvCa2. OPP = 
sSET UP R4 uit T ADDRESS 
3SET UP RECORD ae IN PACKET 

TISSUE COMMAND 

;WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 


sBUMP COUNT 
sTSSR INCORRECT AFTER = A an 


;LOOP IF SELECTED ‘ 
TRAP 


p SSSSSSS SSS SSSSSSSSSESeSES SSE SESSSESSETeSESeESESSSSESSESEESSESSEESS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
§ FSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSsss 


T26BFR-6,R1 
Saitie R2 
R1 Re : 


180% 
FATFLG 
ERRNO , T26L OP , EXPREC 


T26BFR-4,R1 
R2 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE RLS T IN EXPECTED 

SARE THEY E 

sBR, IF EQUAL CALL IS WELL) 

sBUMP COUNT 

3; THE RLL BIT WAS NOT SET xSTO 
TRAP CSERHRD 
-WORD 720 
-WORD T26LOP 
-WORD EXPREC 
TRAP CsC_P1 

sPICK UP RESIDUAL BYTE COUNTER 

sTHIS SHOULD BE THE DIFFERENCE 
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12350 070532 
12351 070534 
12355 070540 


141401 
073210 
073216 


000000 
016370 
000002 
100204 


002212 


013701 
0102 


12400 070704 
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R1,R2 
190% 


ERRNO , T26PBP , EXPREC 


#512. ,R3 
F t 


sIS THE DIFFERENCE CORRECT 

3BR, IF CORRECT 

;RBPCR NOT CORRECT - 
WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 

TRAP 

sRECORD SIZE 

sSTARTING READ BUFFER ADDRESS 


F FSSSSSSSSSSSSSSSSSSSESSSSESSSSSESSSSSSSESSSSSSESSSSSSSESSSSSsesesesesessesses 
REREAD NEXT, ACK,CVC=1,0PP=0 


b 
FSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSESS Ss 


BLP ESP EE EE 


& 
2 
z 
8 


270%: oop 


#141401 , T26PK3 
OT26PK3 .R4 


sREREAD NEXT CVC=1,0PP=0 

sSET UP R4 ute ) ADDRESS 

3SET UP RECORD SIZE IN PACKET 
COMMAND 


s ISSUE 
sWAIT FOR SSR TO SET 
GET TSSR CONTENTS 


sBUMP COUNT 

sTSSR INCORRECT AFTER — 
- WORD 
- WORD 
- WORD 


TRAP 


sLOOP IF SELECTED 


p FSSCS SS SSS SeSSETeSeSeSESeTeSSESeSSESeESESeSSESeSSESSESESeESSSSSETS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


a 
§SSSSCSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSSSSSSSSSSSSSses 


MOV 
Bs saitie R2 
CMP R1,R2 


2 
FATFLG 
ERRNO 


BEQ 
INC 
ERRHROD 
CKLOOP 
MOV 
MOV 


T26BFR-6,R1 


» T26LOP , EXPREC 


seer MESSAGE wre 


SET THe ALS BIT 

1SET RLS BIT IN EXPECTED 

TARE THEY EQUAL 

sBR, IF EQUAL CALL IS WELL) 
COUNT 


sBUMP 
1 THE RLL BIT WAS NOT oer. e. xSTO 


TORD 
2 WOt 1D 
. WOF 2D 
PICK UP RESIDUAL pre Se 
THIS SHOULD Be THE DIFFERENCE 
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12401 070710 020102 CMP R1,R2 sIS THE DIFFERENCE CORRECT 
ibaos ovorie ERRHRD ERRNO be T26PeP,exPREC -|RBPCR NOT CORRECT 
. P o 
070716 104456 TRAP CSERHRD 
ie tise ie ioe 
0707 015614 “WORD EXPREC 
12407 070726 290%: CKLOOP sLOOP IF SELECTED 
070 104406 RAP CSCLP1 
12408 070730 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
070730 110116: 
070730 1 TRAP CsESuB 
070732 023727 002212 000017 FATFLG, #15. sIS ERROR COUNT AT 25 
12410 070740 10 BLO 999% sO IF LESS THAN 25 
12411 070742 004737 017322 PC ,CKDROP sTRY TO DROP THE UNIT 
eth 070746 999%; 
1241 
12414 3° 
12415 3 
seei6 sTEST 6, SUBTEST 13 
$ 
12418 eet THAT A DATA BUFFER ADDRESS REFERENCING 
12419 ISTENT MEMORY CAUSES RECOVERABLE ERROR 
12420 | TERMINATION (TC=4 OR S) WITH NXM=1 AND THAT THE TAPE 
12421 sIS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
sence 30F REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 
12424 
12425 p14 din BGNSUB $>>>>>>>>>>>> a x" eel >>>>>>>>>>>> 
oo 3 
070746 104402 TRAP Cs$6SuUB 
12426 070750 005737 003130 TST NXMFLG 300 WE HAVE IT? 
12427 070754 001 BNE 10% 36R, IF ENOUGH 
12428 070756 000137 071760 JMP 200% ;SKIP THIS peat IF NOT 
12429 070762 004737 076000 10%: JSR PC, T26REST OMMAND P. 
30 070766 005037 073236 CLR T sCLEAR TAPE RECORD COUNTER 
12431 070772 004737 076072 JSR PC, T26RT2 sSET OTHER COMMAND PACKET 
at 070776 004737 076134 JSR PC, T26RTS 1SET UP OTHER COMMAND PACKET 
12638 aaa tated tad datatadhtatadadadadadndacadadadedatncntntndadndntndndadadadatadadaddndadachdachthdhdenetndeeenene 
ets J i ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
12636 FESSSSSSSS SSS SSS SSeS SESS SSS SSESSSSSSS SSS ESESSESESESESEEEESSSESEEES 
12440 071002 004737 016114 JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 
12441 071006 103407 Bcs 20 36R IF INIT WAS OK 
12442 071010 005237 002212 INC FATFLG 3 COUNT 
12446 071014 010001 MOV RO,R1 sCONTENTS OF vous REGISTER 
12447 071016 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS nor a 
071016 104455 CsEROF 
071020 pad Ss 4 "Horo 723 
071022 0036 -WORD SFIERR 
071024 Ole S54 -WORD SFIMSG 
i2e88 071026 013737 002172 073100 20%: MOV UNITN, T26D0SW sSET UP UNIT NUMBER 
12450 071034 012704 073060 MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


H5 
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sESSSSSSS SSS SSS SESS S SSS SE SESS SSS SESS SESE SE SESE SES ESESESESESEESEEEEE 
' 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

: SECS SSS SSS SESS SSS SSS SESS SEES ESET SESE SSESES ESET ESESESESE SEE ESESS 


004737 010752 JSR PC, ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
103407 BcsS 26% Hy IF COMMAND ISSUED OK 


INC FATFLG 
MOV Ri SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 


“Wap 

“WORD 

TRAP 
§ SSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSESSSSSESSSSESSESSSSSSESSSsS 
tISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
-epeneusnesensesoonsnesenneqressesssnsonnsenesssnsenseenenssnensess 


THE EXTENDED FEATURES SWITCH 
REWIND COMMAND 


26%: CKLOOP sLOOP IF SELECTED 


sPACKET ADDRESS SET UP 


3sBUMP 
sREWIND NOT ACCEPTED 


30$: sLOOP IF SELECTED 


FESSCSSS SS SSS S SSS SSS SSSSSSSSS TESST ESSE SESS ESSESESeSESeSEeSeSeSETETS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


$ 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSSSSSSSSSSSSSSSSSSSSS SSS 


ste i hae oe 
052702 


BIS 1567 BOT BIT IN N EXPECTED 
CMP R1,R2 REC'D 


s 
BEQ 403 1BR IF EQUAL (OK) 
ERRHRD ERRNO, T2680T ,EXPREC }TAPE NOT AT BOT AFTER REWIND 


. WORD 
12502 oriise sLOOP IF SELECTED 
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12503 


071156 
071160 


104406 
013737 


003116 


000013 


003134 
073236 
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TRAP CsCLPl 
073212 MOV FREE , T26RB sSTARTING WRITE BUFFER ADDRESS 
FSCCCSS SSS SSS ES SSS ESET ESSE SESS ESS SSE SEES SET ESE SES EEE SESE SESESETES 


;}WRITE DATA,CVC=1,ACK COMMAND 


3 
F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSESSESSESSESSSES 


073210 MOV #140005 , T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
MOV OT26PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
073216 65%: MOV $256. , 126SZ sSET UP RECORD SIZE IN PACKET 
111702 MOV 26CNT , aF ;MOVE TAPE RECORD NUMBER TO BUFFER 
073236 ADD » T26CNT ; READY FOR NEXT 
MOV R4, TSDBCRS) s ISSUE 
JSR PC. WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS) RI :GET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP Ri R2 sARE THEY EQUAL 
BEQ é :BR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
727 
WORD WRTERR 
“WORD PKTSSR 
7S$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPi 
073236 CMP #11. ,T26CNT 1 CHECK NUMBER OF RECORDS WRITTEN 
BEQ 120 IF AT nA END OF WRITE SEQUENCE 
naan BR 65$ brite MORE RECORDS 
$ 
none CLR NXMHI sSET TO 16 BIT ADDRESS 
3 
CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 


pSSSS SSeS SSS SSESSSSSESSSESeeSeSESeeeSeTeeeseeeSESeSESeSSeSSSESSESTE 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

; SSCS SSS SSeS SSSSSSSSeSESSSSSeSSSSSSeESEeSeESETeEeSSeSeeeSSSESeTEeSTES 
°S8. REWIND sCALL TAPE REWIND COMMAND 


MOV 18Shces) Ri 7 oi. 
MOV ‘ IORCKET ADDRESS SET UP 
INC FATFLG 


sBUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 


JSR 
BCS 


130%: CKLOOP sLOOP IF SELECTED 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSSSSSSSSESSSSSSSESSSSS 
4 
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12555 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
12557 -ageuaeesenseesseresesossssonspsnneesnsndl becnssssonsennnseneeesans 
013701 T26BFR+6,R1 sPICK UP XSTO 
010102 R1,R2 ;SET UP EXPECTED 
eaiti. R2 iSET BOT BIT_IN EXPECTED 
1,R2 ;D0ES EXP = REC'D 
140% ;0R, IF EQUAL COK) 
FATFLG ;BUMP COUNT 
ERRNO , T26B0T , EXPREC ‘TAPE NOT AT BOT AFTER REWIND 


ues 


1404: ;LOOP IF SELECTED — 
MOV OT26RN,R3 ;COMMAND BUFFER ADDRESS 

150¢: MOV NXMLO, Teens sSTARTING READ BUFFER ADDRESS 
MOV NXMHI , T26RB+2 3SET UP HIGH ORDER ADORESS B1TS 

FFSSSSSSSSSSSSSSSSSSSSESSSESSESSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSESseseessss 

}REREAD DATA,IE,ACK, OPP COMMAND 

_ seesaganseaneusessensssuensenssnsesesnsnmesenenasesnenensoneeeess 

REREAD DATA, IE, ACK 9 OPP COMMAND 

3SET UP R4 WITH PACKET ADORESS 

SET UP RECORD * SIZE IN PACKET 

ISSUE 


071414 
71420 165%: 


AD AND BIT1 SET 
NEXT ADDRESS RANGE 
OR LOW 
sBR, IF MORE BITS To GO 
sBurP C 
iTSSR INCORRECT AFTER REREAD DATA 
TRAP $ 


; 


° 
12569 
12570 
12571 0 
12572 
12574 
12575 
12577 
12578 
12579 
125860 
12561 
12562 
12583 
12564 
1258S 
32508 
12568 
12589 
12590 
12591 0 
12594 

te) 
12597 


: 
TO 


170%: sLOOP IF SELECTED 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSSSSSSSSSSSSSSSSSSSESSSSSSS 


}READ DATA, ACK,CVC=1 COMMAND 
$ 


aH 





KS 
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12608 FPSSSSSSSS SS SSS SSSSSSS SESS SSS SESS SS SSS SETESeSSeseSeEeEeSeESESESSSSS 
12610 071 012737 140001 073210 MOV Saseee — READ DATA, ACK,CVC=1 COMMAND 
12611 O7ies> 012737 000400 073216 MOV “1268 iSET SIZE iNnTO 
+eeig 071540 005037 073214 CLR ieee sCLEAR OUT HIGH ADDRESS BITS 
12613 071544 013737 003116 073212 MOV FREE 136RB sGIVE READ A GOOD BUFFER 
12614 071552 010465 000000 MOV R4, TSOBCRS) sISSUE READ DATA COMMAND 
12615 071556 737 016370 JSR PC sWAIT FOR SSR 
12616 071562 016501 MOV TSSR(RS),R1 sPICK UP THE TSSR 
12617 071566 012702 000200 MOV UP EXPECT 
12618 071572 020102 CMP R1,R2 :1S THE TSSR 
12619 071574 001406 BEQ $ 3BR, IF TSSR OK (GOOD) 
12620 071576 005237 002212 INC FATFLG sBUMP C 
1602 ERRHRD ERRNO, RDERR,PKTSSR sREAD DATA COMMAND FAILED 
071602 104456 TRAP CSERHRD 
071604 001333 -WORD 731 
071606 005206 -WORD RDERR 
071610 012166 -WORD PKTSSR 
12625 071612 180%: CKLOOP 3;LOOP IF SELECTED 
071612 104406 CSCLPi 
12626 071614 017701 111276 MOV @FREE ,R1 ses WORD FROM READ BUFFER 
12627 071620 012702 000001 MOV #1,R2 EXPECTED 
71624 020102 CMP R1,R2 + TAPE POSITION comer 
12629 071626 001406 BEQ@ 190% sKEEP GOING POSITION OK 
12630 071630 005237 002212 INC FATFLG sBUMP COUNT 
12634 071634 ERRHRD ERRNO, T26WNG, EXPREC i TAPE POSITION INCORRECT 
071634 1 TRAP CSERHRD 
071636 001334 -WORD 732 
640 0 .WORD T26WNG 
071642 015614 -WORD EXPREC 
12635 071644 190%: CKLOOP 
071644 104406 TRAP CSCLP1 
1263? FPSSSSSSSSSSSSSesseseeeeesesseseeeseseseseeeesesseeeeeseeeeeeeSeESS 
3 
12639 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
12640 3 
12641 FPSSSSSSS SSS SSS SSS S SSS SSS SSESSSSSSSSSSES SSS SESESeTeseeeeSeSeEESEESS 
12643 071646 004737 011136 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
12644 071652 103411 BCS 1348 1BR, IF NO PROBLEM 
12645 071654 016501 000002 MOV SSRCRS),R1 5 SSR 
12646 071660 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
12647 071662 005237 002212 INC FATFLG : COUNT 
12651 071666 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
071666 104456 TRAP CSERHRD 
071670 001335 -WORD 733 
071672 074544 .WORD T26RWN 
071674 012166 -WORD PKTSSR 
12652 071676 194%: CKLOOP sLOOP IF SELECTED 
071676 104406 TRAP CéCLPi 
12638 MitiiTii ii iii iiiit i iiiiiititiiititiiitiiiititiiiiiitiiiitt titi t itty 
126 8 
ise sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


12658 : SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsessse 


TEST 6: REREADS 


013701 T26BFR+6,R1 
03 BIS ein Re 
CMP 1,R2° 
BEQ 196% 
INC FATFLG 3 
ERRHRD ERRNO, T2680T ,EXPREC 3 TAPE NOT AT BOT AFTER —- 
. WORD 
. WORD 
. WORD 
196%: oop sLOOP IF SELECTED _ 
R3,R2 sSAVE R3 FOR A MOMENT 
sSSSSSSSS SSS SSS SSesseeeeeeeeseessseeseseseseseseesseeeeesessseseees 
TISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
; SOSSSSSSS SSeS SseSeseseseseesesesesseessseseseeseseeesesesessesessssssseses 
sSPACE ONE RECORD 
8 Ss ROUTINE 
sRESTORE 
TEND OF COMMAND BUFFER YET 
sMORE COMMANDS KEEP GOING 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10117: 
TRAP CsEsuB 
sIS ERROR COUNT AT 25 
sR, vr LESS THAN 25 
sTRY TO DROP THE UNIT 


FATFLG,@15. 
999% 
PC, CKDROP 


iTEST 6, SUBTEST 14 


IVERIFIES THAT REREAD PREVI 
READ FORWARD 


CRE REVERSE, SP ? 
HUITH THe NONEXECUTABLE 


sWITH 


g>>>>>>>>>>>> a 7 SUBTEST >>>>>>>>>>>> 
. : 
TRAP C#6SUB 


sCLEAR TEST COUNTER 
737 076000 sSET COMMAND PACKET 
004737 076072 sSET UP OTHER COMMAND PACKET 





MS 
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12730 072012 004737 076134 JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


8 FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSSESSSSSSESSESSSSsesessse 
ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; SESS SSSSSSSSSSSSSSSSSSSSSESSSSSESSSSSSSSSESSSSSESSESSESSSSESSSESSESSESSESsesess 
016114 JSR 300 INITIALIZE ON CONTROLLER 
BCS 203 :8R IF INIT WAS OK 
002212 INC ’ 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
. WORD 
* WORD 
“WORD 
20: MOV UNITN, T26DSW ;SET UP UNIT NUMBER 
MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
BS SSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSESSSSESSSESSSESSSSSSESSSESSSESSSsessss 
}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
~ SSSSSSSSSSSSSSSSSESSSSSSSSSESSESSSSSSSESSSSSSSESSSSSSESSSSSSESSESSsessessesss 
JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 253 38R, IF COMMAND ISSUED OK 
a FATFLG 


RO,R1 SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG WRITE CHARACTERISTISC FAILED 


25%: CKLOOP sLOOP IF SELECTED 


SReSKEAS HS ESSS ESKER KEK SY SHCTSEKSSEKHCEECKHSHKKHE SSE HLCKKSEBEKSSKEK EK 
SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
~eseounseseseouesssvsanssseassennensenoenenenesseensesenenesenneets 
266: SRBC LREWINO CALL TAPE REWIND COMMAND 


8 SSR 
sSeT UP EXPECTED ISSR 
BcSs 3 PROBL 
MOV PACKET ADORESS SET UP 
INC sBUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP 
. WORD 
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12763 
12764 


072136 104406 


013701 
01 
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TRAP CéCLP1 


§ FSSC SS SSS ESSE SSS SESS SS SSS SSS SS ESSSSSESS SSS SSS SESE SSSSSSeSeSeeeseSeS 


}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
penneeeeeneoeeessesennssvesssessenuseneneenenannsnmeesennnaensanen 


ar Apia te 


#81T1,R2 
R1,R2 


eae UP XSTO 
EXPE 


ED 
1SE7 BOT BIT IN EXPECTED 
REC'D 


1BR IF EQUAL (OK) 
i TAPE NOT AT BOT AFTER REWIND 
TRAP 


- WORD 
. WORD 
sLOOP IF SELECTED a 
me Bt leas? pe a eel 
TST R3 ; CHECK NUMBER OF TIMES THROUGH HERE 
BEQ S0¢ :8R, IF FIRST TIME THROUGH HERE 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSS 


iREREAD,CVC#=1,ACK COMMAND 


a 
$s SSSSSSSSSS SSS SSS SSSS SSS SSS SSS SS SSES SSS SSS SSSSSS SSS SSSeeeeSeeeSeeeeEeS 


MOV #161001 , T26PK3 sREREAD,CVC=1,ACK COMMAND 
BR S54 sSKIP NEXT COMMAND 


SESSRESKASSKS EES ESCH ECH NSEC EREKKSLE KES SESS SCLSE CCE REE CEHHSEKAKKSEREKKEM 
;REREAD, ACK COMMAND 
 eundeneadeusneuveeseesosneccesenesennaieensinnteninentebtneimeiinten 
ts #141001, T26PK3 sREREAD, ACK COMMAND 
sa OT2EPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
pea 


PC 
TSSR(RS 


TO SET 
RL $s 
pSsnisci6r 1!8IT2,R2 
R1,R2 


F tes 
ERRNO , T26WDE , PKTSSR 


Se UU ious 
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12616 072276 7S$: CKLOOP sLOOP IF SELECTED 
7 072276 104406 TRAP 


BR Re Se ah he a Eee ee RR a ea ee aaa a aR a eK 

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
: SSSSSSSSSSSESSESSSSSESSSSSSSSSSESSSSESSESSSSSSSSSSSESSSESSESSESSSSSESESESSESS 

013701 073110 T26BER-6, Ri :GET XSTO STATUS WORD 
MOV ;SET UP EXPECTED 
002000 Bis eeitio, R2 1SET THE NEF BIT 
heey i@R, IF EQUAL (GOOD) 
OUNT 


FATFLG 3 
ERRNO, T26NEF ,EXPREC sNEF SHOULD BE SET 


TRAP 
sRESET THE SWITCH 
sBR, IF FIRST TIME THROUGH HERE 


FATFLG,#15. 
999% 


PC ,CKDROP sTRY TO DROP THE UNIT 
999%: 


3° 
iTEST 6, SUBTEST 15 


; VERIFIES THAT tonite PREVIOUS WITH OPP=1 (SPACE 
RE: ) AND REREAD PREVIOUS WITH OPP=1 
PACE FORWARD) ISSUED WHEN THE TAPE 
I eT se "s Re RECORD ON TAPE (BUT 
NOT AT BOT) CAUSES T ATUS ALERT TERMINATION WITH 
THE REVERSE INTO BOT ACRIB) STATUS BIT SET. 


BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


6.15: 
TRAP C#6SUB 
CLR T26CNU sCLEAR OUT COT 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2 iSET UP OTHER COMMAND PACKET 
072374 73 JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


pPSCSSSSSSSSSS ESTES TESS SS SSS ESET ESTEE ESSE SESESESESESEESESSESESEETE 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
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, eeusceesereosnsseseseneeresssesorensssesessssonsennneneronseseees 
016114 JSR SOF INIT :D0 INITIALIZE ON CONTROLLER 
204 ;8R IF INIT WAS OK 
002212 T FR FLG 8 
MOV sCONTENTS OF TSSR REGISTER 
ERANO, SFIERR, SFIMSG HFATAL ERROR TSSR WAS NOT OK 
. WORD 
“WORD 
012154 WORD 
013737 UNITN, T26DSW ;SET UP UNIT NUMBER 
012704 OT26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
Miiiiiiiitititiitititii Titi tii tTitiititiititiitititiitTitiiti ttt ttt. 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


a 
ESSERE KEKE EKER EK EKER ERE SEK SSE EK SES ES EE EKEK ER EKER EES ESE 


JSR WRTCHR ISSUE WRITE CHARACTERISTICS 
BCS OS; BR TF COMMAND ISSUED OK 


INC FATFLG 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG , SFIMSG sWRITE CHARACTERISTISC Feng 


25%: CKLOOP sLOOP IF SELECTED : 
TRAP 

8 FSSSSSSSESSSSSSSSSESSSSSSESSSSSESSESSSSSSESSSSSSSSSSESSSSSSESSESESSESESSSSSses 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

En 

26%: sCALL TAPE REWIND COMMAND 

:GET TSSR 
ess iSET UP EXPECTED ECTED TSSR 
RO, R4 IBACKET ADORESS SET UP 


FATFLG }BUMP COUNT 
ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 


PC, REWIND 
TSSR(RS),R1 
@SSR,R2 


30%: CKLOOP sLOOP IF SELECTED 


PSSSSSS SSS SSS SS SSS SSS ESET SSS ESS SE SES TSSESSE SEES SEE SEE SEESEEESEESE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
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SEQ 0275 
TEST 6: REREADS 


3 
12919 8 FSSSSSSSSSSSSSSSSSSSSSSSESSSSSSE SSS SSSESSSESSESESSSSESSSESSSSSSESESESSESsesssesse 
12921 072522 013701 073110 MOV T26BFR+6,R1 sPICK uP exST0 
13338 $7580 3 9498 000002 Bis Saint R2 Bor. “ert N CTED 
18353 O7Se38 952798 pis Ri RS" ie i: NE ; 
12925 072536 001406 BEQ 403 BR, IF MEQUAL (OK) 
12926 072540 005237 002212 FATFLG ;BUMP 
12930 072544 ERRHRD ERRNO, T26B0T ,EXPREC TAPE NOT AT BOT AFTER REWIND 
072544 1044 TRAP  C$ERHRD 
072546 001 .WORD 744 
072550 074255 "WORD 12680T 
072552 015614 “WORD EXPREC 
12931 072554 40%:  CKLOOP 
072554 104406 TRAP —- C$CLP1 
at FFSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSESSSSSSSESSSSSSSESSESSSESSSESSESSESSESSESSESS 
6 
12935 sISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
12936 i817 1S SETS DIRECTION - O=FORWARD 1=REVERSE 
129 ] 
it-4 FFSSSSSSSSSSSSSSSSESSSSSSSESSSSSSESSESSSESSSSESSESSSSSSSSESSSSSESSESSESSSSESseses 
072556 012703 000001 MOV 9000001 ,R3 sSET UP SPACE FORWARD 1 RECORD 
12941 072562 004 010560 JSR PC, SPACE sISSUE SPACE COMMAND 
12942 072566 103411 BCS :0R, IF OK 
12943 072570 016501 000002 MOV TSSRCRS),R1 sGETt STATUS DATA 
12944 072574 01 MOV RO,R4 :GET PACKET ADDRESS 
12945 072576 002212 INC FATFLG sBUMP COUNT 
12949 072602 ERRHRD ERRNO, T26WDE,PKTSSR 3TSSR INCORRECT AFTER READ DATA 
072602 1 TRAP C$ERHRD 
072604 001351 .WORD 745 
7 074203 T 
072610 012166 "WORD  PKTSSR 
12950 072612 75$: | CKLOO? ;LOOP IF SELECTED 
ai 072612 104406 TRAP —- C$CLP1 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSESSsS 


12954 TISSUE SPACE RE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
13333 iBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 

12957 
12958 


ssoecconsesoosssosoccsocooossosonansssosesessessosasenensssneeeses 


12959 072614 012703 100001 MOV ee ente R3 +S SPACE REVERSE 1 RECORD 
12960 072620 010560 JSR 
12961 072624 103411 BCS 1738 G0 ON IF ALL IS WELL 
07 016501 000002 MOV SSRCRS),R1 sGET TSSR CONTENTS 
1296 7se8s 010004 MOV RO,R4 PM CTED (PACKET CONTENTS) 
07 002212 INC FATFLG COUNT 
12968 072640 ERRHRD ERRNO, T26WDE.PKTSSR TSSR INCORRECT AFTER READ DATA 
97 104456 TRAP C#ERHRO 
07 o74se8 “WORD T26WDE 
012166 [WORD PKTSSR 


072646 
12969 072650 175¢: CKLOOP sLOOP IF SELECTED 


E6 
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TEST 6: REREADS 
TRAP CSCLP 
MOV —s FREE, T26R8 ;ADORESS OF BUFFER 
TST —- T26CNU CHECK FOR TIMES THROUGH HERE 
Bea Sié1'768 'R, IF FIRST TIME THROUGH 
PESCSREKSHSRSKSEHH SSH SESS SKRE KEE HSH STS K SEK ERE EKER CHT ESS EHS AEE EH 
;REREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 


: 
§ SSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSE SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSE SSS 


073210 MOV #161001 , T26PK3 sREREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 
BR 178% sSKIP NEXT COMMAND 


SREKKSE SEERA EHS E SKEET EEE TEETER EHS KH SSE EK HS REET ESCH SE EREKHE TER 

TREREAD ,ACK,OPP=1 COMMAND 

s euseeecoosososesessceseseressesesoonessososessososeseseosensesesee 
073210 1768: 141001, T26PK3 sREREAD .ACK,OPP=1 COMMAND 


1783: 
OT26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
R4. TSDBCRS) sISSUE COMMAND 
;WAIT FOR SSR TO SET 


PC. WAITF 

TSSR(RS),R sGET TSSR CONTENTS 
pen isc iéit2, R2 sSET UP EXPECTED 

Ri RS 3ARE THEY EQUAL 


1 $ 36R, IF OK 
FATFLG et COUNT 
ERRNO , T26WDE , PKTSSR sTSSR INCORRECT AFTER — 


MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 
CKLOOP 


;LOOP IF SELECTED 
073116 MOV T26BFR-+14,R1 :GET XST3 STATUS WORD 
MOV R1,R2 SET UP EXPECTED 
000001 e8iT0,R2 
CMP Ri Re 
002212 INC FATFLG 
ERRNO 


TRAP CsCLP1 
T26CNU sSET SWITCH ne OTHER WAY 
26% 3BR, IF FIRST TIME THROUGH 
$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


110121: 
TRAP CSESUB 
FATFLG, #15. sIS ERROR COUNT AT 
999% :8R, IF LESS THAN 





F6 
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13020 pb ss 004737 017322 
13021 073032 


004737 016576 
103002 
000137 056650 


104432 
003116 
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JSR PC, CKDROP 


PC, TSTLOOP 
163% 
T26L00P 
TST 


;LOCAL STORAGE FOR THIS TEST 
10-<, -TSV2€7> 


14004 
ee 


: 
: 


a5555 5583 § 


T260SW: . 
T26BFR: .BLKW 


: 10-<.-TSV2E7> 
T26PKe: 
13ers 

268F 2 
r+) 
6. 
10-<.-TSV2E7> 
140005 


FREE 
fe) 
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sTRY TO DROP THE UNIT 


00 We NEED TO ITERATE TEST 
0 00° REQUIRED 
BR. IF ND 
;ALL DONE THIS TEST 


TRAP CsExIT 
-WORD 110102-. 


sCOMMAND PACKET FOR TEST 
;WRITE gg hat Ics a CvC=1, ACK 


sADORESS OF CHARACTERISTICS BL 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM C ACK 
sADORESS OF SELECT BLOCK COCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, CvC=1 AND ACK 
sADDRESS OF WRITE BUFFER. 
sSIZE OF BUFFER (EXTENT) 
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s TAPE notion PACKET COMMAND VALUES 


T26RN: .WORD 140001 
141401 


16140 6140 

177777 +1901 
+26CNT: 
T26CNU: 
T26RSZ: 
T260LY: 


sTAPE RECORD COUNTER STORAGE AREA 
s TAPE RECORD COUNTER STORAGE AREA 


sRECORD STORAGE SIZE AREA 
sDELAY COUNTER AREA 


555 533 


2 bh be ho be bo he pe 


arrears 


}LOCAL TEXT MESSAGES FOR TEST 


Position Incorrect After REREAD Prev oe {Oe =1)' 
AD PREVIOUS, At he ho’ b44%° To Set Ser (xSTO)’ 
Atte A Command’ 


melo SATA Reed Forward) Command Failed’ 
Forward) Command Failed’ 


BRIBES 


BR 


llegel Bits Se 
Bits, Feiled To Set ILC Bit In XSTO’ 
: COMMAND 
‘TSSR Not Correct After WRITE DATA Command’ 
‘7 REWIND ‘ 


ARBRRRARRRRRABRRRD 


NNNNNNNANNNNNNNANNANNNNNNANNNNNGN 


7 TSSR’ 


PESEBNER SEEN 
§~33 


- SWB Bit Set’ 


an' nt he veRe 70 Re ge Butter’ 
- i After REREAD DATA 
YSTEM MEMORY Command Not p CRAM Read)’ 


ge 


seers ## ## @# @© @ @ 


age 


ce 


duel 6B ncor Short Record Read’ 
erate ,nesere Feiled To Give Tape Stetus Alert’ 


a leleelelelen 


‘Rete, Ban; Tape Not Correct, After SWB=1' 


i RRGRRGR 


} ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
SWRITE SUBSYSTEM MEMORY COMMAND 





H6 


TSv7 


38 
13139 
40 
13141 076000 


157 076066 
13158 076070 
159 


3160 
13161 076072 


13161 076164 
6164 
076164 


- HARDWARE TESTS 1-8 
TEST 6: REREADS 


000030 
177777 


073210 
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T26REST: 
SAVREG 
NOV ST26PACKET 8 
MOV stseaxt 
MOV TeepaTh, (aa. 
Sov $10. *(R1) 
* 
MOV eT26BFR,(R1)- 
CLR eri 
MOV $20) *(R1)- 
CLR (Ri )- 
MOV 60,(R1) 
MOV $24. ,R2 
64%: MOV o177777, T26BFR(R2) 
Fi TST -(R2) 
CMP R2, 90 
BNE 643 
RTS 
T26RT2: 
SAVREG 
MOV OT26PK2,R1 
MOV #140006, (R1)- 
MOV @T26BF 2, (R1)-+ 
CLR (Ri) 
MOV $6. ,(R1)- 
CLR 5. 
MOV $T26BF2,R1 
CLR (R1)-+ 
CLR (R1) 
RTS PC 
T26RT3: 
SAVREG 
MOV OT26PK3,R1 
MOV #0,(R1)- 
MOV 00 Rl “ 
CLR (Ri) 
MOV €0,(R1) 
RTS 
ENDTST 


sSAVE_THE mrersTens 
eate OF THE PACKET 
WRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
; ADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO (0 


sNUMBER OF LOCATIONS TO BE CLEARED 
MESSAGE BUFFER 


SET OF wrGis lens, 


SWRITE suesvsign MEM. WITH ACK,CVC=1, 
sADDRESS OF DATA BLOCK 

;EXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE_THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF DATA BLOCK 
ADDRESS 


sEXTENDED 
sSIZE OF DATA BLOCK IN BYTES 
sRETURN 


L10102: 


TRAP CSETST 


-SBTTL TEST 7: WRITE DATA RETRY 


i THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


} THE TEST CONSISTS OF THE FOLLOWING 5S SUBTESTS 


SEQ 0279 
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SEQ 0280 
TEST 7: WRITE DATA RETRY 
13193 ‘ 
13333 * 
13195 076166 BGNTST 
076166 T7?:: 
13196 076166 012737 006450 002170 MOV GEPRT2,EPRTSW s SECONDARY ERROR MESSAGE 
13197 076174 005037 003126 CLR KTENABLE sTURN OFF KT11 
13198 076200 004737 017414 JSR PC KTOFF +TURN K Tat BAC BACK OFF IF THERE 
13203 07 012700 106023 MOV @T5T271D, RO 10 TOENTIFY TEST 
13204 076210 004737 016630 JSR PC, TSTSETUP OO. Tike TEST SETUP 
13205 076214 012737 000005 002206 MOV #5, LOOPCNT ;PERFORM S ITERATIONS 
13206 076222 37 103066 CLR T27CNT }CLEAR TAPE RECORD COUNTER 
1B, . 
i 3 
13209 sTEST 7, SUBTEST 1 
i333) 
13212 VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
13213 ;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
13214 sTERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
13215 sERROR BIT SET. 
° 
13519 ; 
13218 s- 
13219 
13220 076226 T27L00P: 
13221 076226 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
076226 T7.1: 
076226 1 TRAP C4#BSUB 
13222 076230 004737 106044 JSR PC, T27REST PACKET 
13223 076234 004737 106136 JSR PC. TO7RI2 3SET UP OTHER COMMAND P 
13224 076240 004737 106200 JSR PC, T27RTS 3SET UP OTHER COMMAND PACKET 
13225 076244 012737 176750 103072 MOV #65000. , T27DLY 3SET UP DELAY COUNTER 
13226 076252 103066 CLR T27CNT sCLEAR COUNTER 
tesse 8 SSSSSSSSSSSSSSSSSESSSSSSESSSESSSSSSSSSSSSSSESSESSSSSSSESSSSSESSSESSSESSessess 
3229 3 
13230 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
+asee § FSSSSSSSSSSSSSSSSSS SSS SSE SSSESSSESSSESSESSSSESSSSSSSESSSSSSSSSSSSesessesessses 
1 
13234 076256 004737 016114 10$: JSR PC, SOF INIT 300 INITIALIZE | ON CONTROLLER 
13235 076262 103426 BCS 20% :BR rt WAS OK 
13236 076264 DELAY ;DELAY ABOUT .25 SEC 
07 012727 000250 MOV $250, (PC)+ 
076270 .WORD 0 
076272 013727 002116 MOV LSOLY,(PC)- 
076276 . WORD 
076300 005367 177772 dEC -6(PC) 
076304 001375 BNE .-4 
076306 005367 177756 DEC -22(PC) 
076312 001367 BNE .-20 
13237 076314 005337 103072 DEC T270LY sBUMP COUNTER 
3238 076 001356 BNE 108 38R, IF COUNTER NOT DONE 
13239 076322 005237 002212 INC ATFLG sBUMP 
13243 076326 010001 MOV RO,R1i sCONTENTS OF TSSR REGISTER 
13244 076330 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
076 104455 TRAP CSEROF 


J6 
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TEST 7: WRITE DATA RETRY 

076332 001275 .WORD 701 

076334 003652 “WORD SFIERR 

076336 012154 ‘WORD SFIMSG 

076340 013737 002172 102730 20%: MOV UNITN, 1270S :SET UP DRIVE 


NUMBER 
076346 012704 102710 MOV OT27PACKET, sSUBROUTINE NEEDS PACKET ADDRESS 
s FSSSSSSSS SSS SESS SSS TESST ESSE SES SSSSSSSESESESESESESESSSSSSTSSE ESS 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESSSSSSSESSSSSSSSSSSSSSSESSSSSSESSSSESS 


076352 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
076356 103407 BCS 253 ;8R, IF COMMAND ISSUED OK 
076360 005237 002212 INC FATFLG ' 
076364 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
076366 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
076366 TRAP § C$ERHRD 
076370 001276 ‘ 702 
076372 “WORD WRTMSG 
076374 012154 "WORD  SFIMSG 
13262 076376 25%:  CKLOOP ;LOOP IF SELECTED 
ae 076376 104406 TRAP —s- C$CLP1 
13385 FSSSSSSSSSSSSSSSSSSSSSSESSSESSSSSSSSSSSSESSSSSESSSSESSSSSSESSESSESSSESESSess 
a 
13266 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
12e08 PRPC HR EEE EARS EHEC TEE CERES RHEE ERE EERE EE RTE HEH 
13350 076400 004737 011136 JSR PC ,REWIND :CALL TAPE REWIND COMMAND 
13271 076404 103407 BCS 30% ; IF NO PROBLEM 
13272 076406 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 
13273 076410 005237 002212 INC FATFLG ;BUMP COUNT 
13277 076414 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
076414 104456 TRAP = CSERHRD 
076416 001277 .WORD 703 
076420 104245 "WORD T27RWN 
076422 012166 *WORD PKTSSR 
13278 076424 30%:  CKLOOP sLOOP IF SELECTED 
sneu 076424 104406 TRAP —- C$CLP1 
sase0 PESCeST SEK SK SEEKER E HAR CKE KEKE ECRERTKETEKRESHTE KARE REKEERCRE KES RE 
328 : 
13282 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
é 
tasee FS FSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSESSSSSSSSSSESSSESSSESSESSSesess 
13286 076426 013701 102740 Mov T27BFR+6,R1 sPICK UP XSTO 
13287 076432 010102 MOV R1,R2 sSET UP EXPECTED 
13288 076434 052702 000002 BIS #6iT1,R2 1SE1 BOT BIT IN EXPECTED 
13289 076440 020102 CMP R1,R2 REC'D 
13290 076442 001406 BEQ 403 BR IF EQUAL (OK) 
13291 076444 37 002212 INC FATFLG 
13595 076450 ERRHRD ERRNO, T27B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
076450 104456 TRAP § CSERHRD 


076452 001300 -WORD 704 


TSV7 - HARDWARE TESTS 1-8 

TEST 7: WRITE DATA RETRY 
103741 
015614 


104406 
012737 
013737 
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oop 
$256. ,T27SZ 
FREE. T27WB 


-WORD T27B0T 
-WORD EXPREC 
sLOOP IF SELECTED 


TRAP C$CLP1 
sSET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 


§ SSSSSSSSSSSSSSSSSSSSSESSSSSS SSS SSS SS SSS SSS SSSSSSSSSS SSS SSS SSS SESS SSS 


;WRITE DATA RETRY,ACK,CVC*1 COMMAND 


3 
§ SSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSS SS SSS SESS SSSSSSSSSSSSSSSSSSSSESSSEss 


6431003. as 
OT27PK3 RA 
R4, TSDBCRS) 


TSSRCRS RL 
peer isc i61 1!:81T2,R2 
R1,R2 


7S 
FATFLG 
ERRNO, T27WDE , PKTSSR 


sWRITE DATA & RETRY ACK 
sSET UP R4 PACKET ADORE 
s ISSUE COMMAAD” 

WAIT FOR SSR TO SET 
GET TSSR CONTENTS 


CvC=1  etataies 


sBUMP COUNT 

sTSSR INCORRECT AFTER = 
. WORD 
WORD 
WORD 


sLOOP IF SELECTED 
TRAP 


pPSSCSS SS SSS SE SeESESSESETSSSeESSSeSeSeSesESeESeReESSSeSseEeESETSESS 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSss 


bt ee R1 
R1,R2 


seitio. R2 
R2 

6s 
FATFLG 

ERRNO, T27NEF ,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


sGET XSTO STATUS WORD 
sSET UP EXPECTED 

1SET THE NEF BIT 

sARE EQUAL 

iBR, IF EQUAL (GOOD) 
‘ COUNT 

sNEF SHOULD BE SET 


L10123: - 
:I1S ERROR COUNT AT 
sTRY TO DROP THE UNI 
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TEST 7: WRITE DATA RETRY 
3° 
iTEST 7, SUBTEST 2 
iVERIF IES THAT WRITE DATA RETRY COMMAND ISSUED WHILE 
iTHE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 

sTAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 

}TERMINATION, WITH THE REVERSE INTO BOT (RIBS STATUS 
sERROR BIT SET. 


ge 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


“<? TRAP C4BSUB 
JSR PC, T27REST }SET COMMAND PACKET 
SSR PC/T27RT2 SET UP OTHER COMMAND PACKET 
JSR PC! TOIRTS SET UP OTHER COMMAND PACKET 

8 FSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSSSESSESSSSSSSSSSESSESSSESSSESSSSes 

TISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

s eugueuoesecenenesecscseseseoseosesessenosssessessecsseseooesessees 


016114 JSR PC, SOF INIT sD00 INITIALIZE ON CONTROLLER 
BCS 20 H+ IF INIT WAS OK 
002212 INC FATFLG COUNT 
MOV i CONTENTS OF TSSR REGISTER 
SSR WAS NOT OK 
TRAP senor 
. WORD 
m4 SP TERR 
SFIMSG 


RO,R1 
ERRNO, SFIERR, SFIMSG ;FATAL ERROR T 


UNITN, T27DSW sSET UP DRIVE NUMBER 
SIZTPACKET SR sSUBROUTINE NEEDS PACKET ADDRESS 


PSPSeSCS PCE SS SHES ECHR SH SKE ER SKK ECER KE ESS SER ERH ESSE HEERE SHE HEE 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
s eucccesccososceseososeoosoccosesoosoeenssseosoosasesssosonsseseses 
JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS ; BR. IF COMMAND ISSUED OK 
INC ATFLG 
MOV Ri SAVE CONTENTS OF TSSR 
ERRNO , WRTMSG , SFIMSG sWRITE CHARACTERISTISC FAILED 


254: CKLOOP sLOOP IF SELECTED 


FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSs 
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TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


s Soccessoococosoooosocscosssesesesoosesoooosooscososeoseosooooeese 
JSR 
BcS 
MOV 
;6UrP 
sREWIND NOT ACCEPTED 
076754 
13410 076756 
076756 


104406 
13411 076760 703 000400 0256. R3 
6764 013737 REE. T27WB 


sLOOP IF SELECTED 


RAP 
STARTING RECORD SIZE 
s STARTING WRITE BUFFER ADDRESS 


Pee RSH TERESA HKEKSSS EKER KEES SECS SKE SKK KSSH SEK RAE KEES SH 
}WRITE DATA,CVC#1,ACK COMMAND 
TT 
#140005, 127PKS sWRITE DATA,CVC=1,ACK COMMAND 
OT27PK3.R4 sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


s ISSUE 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

3sSET UP EXPECTED 
EQUAL 


sARE THEY 
sBR, 


‘ COUNT 
sTSSR INCORRECT AFTER a, + cate 


26%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 


PFSESCHHSHSSKSSS SKE KKSCHKSERASSCHSSKSES ARSE SCKSEHKAHSKK SEHK SHES SKS HESS SHES 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


i 
PESTS SS CESS THES KSEE PRK IR SS LASS KH HR EHSC SKK ERK EKAKSE SESS TE SKSHE EAE SHH 


PC ,REWIND APE REWIND COMMAND 


TSSR(RS).RI aes TENTS 
mone ay - 
ERRNO, T27RWN, PKTSSR tRCUIND NOT ACCEPTED at 
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077074 001307 
077076 104245 
012166 


077100 
13451 077102 30% oop OOP IF SELECT 

tsago 077202 108406 tie tee —* - 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSSSSSSS SSS SSESSESSSS 

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
leneneeduneguimsesssnecesesesssnnsesneneonenenanemmenennnennennee 

013701 T27BER-6, R1 sPICK UP XSTO 
02 :SET UP EXPECTED 
eet. R2 SET BOT BIT IN EXPECTED 
1,R2- S EXP = REC'D 


s00€: 
a0 :BR, IF EQUAL (OK) 
FATFLG 


sBUMP COUNT 
ERRHRD ERRNO, T27B0T ,EXPREC i TAPE NOT AT BOT AFTER Ts 


40%: CKLOOP sLOOP IF SELECTED 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSSSESSSSSSSsesesesss 


’ 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 1S SETS DIRECTION - O=FORWARD 1=REVERSE 


S Pesesssossoosocoscooocsooseossecscoscoesesesesesoosooescososesoeee 
$3.85 sPARAMETER SPACE FORWARD 1 RECORD 
SPACE INE 


CALL RECORDS ROUT 
; il ERRORS 
TSSRCRS),RI ert TssR ENTS 
@SSR,.R2 : CTED 
RO.Ra 3SET UP REWIND PACKET ADDRESS 
ERRNO, T27SCF ,PKTSSR MOPACE RECORDS COMMAND FAILED 
TRAP, ¢ 
worn | fis 
-MORD  T27SCF 
TRAP —- CSCLP1 
FSSSSSSSSSSSSSSS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSesesesess 
E 
I SPACE REC COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
aTT 15 SETS DIRECTION” OorORWAADS 
| pquepeseeeesssnceeennsennenennsanesnenmennnneenenniieentaantininines 


012703 100001 MOV «#100001, R3 PARAMETER SPACE REVERSE 1 RECORD 
004737 010560 Mon Pe PAGE ICALL SPACE RE ROUTINE 


50%: sLOOP IF SELECTED 








B7 


TSv7 
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TEST 7: WRITE DATA RETRY 


77212 


13520 077266 
13521 077272 


13546 077400 
13547 077402 
13548 077406 


012166 


104406 
013737 


002212 


003116 


002212 
017322 
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103042 


103040 
103046 


000017 


60$: 


ERRHRD 


CKLOOP 
MOV 


60$ 
TSSR(RS),R1 
@SSR,R2 
RO,R4 


FATFLG 
ERRNO, T27SCF ,PKTSSR 


FREE, T27RB 


EXPECTED 
+o as REWIND PACKET ADDRESS 
: SPACE RECORDS COMMAND he 


RAP C$ERHRD 
-WORD 714 
«WORD T27SCF 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sADDRESS OF BUFFER 


s FSCS ESSSSSE ESSE SEES S SESE ESSE ESSE SESE SESE SER TE ESSE SEES EES SES EES 
; 
sWRITE DATA RETRY,ACK,CVC=1 COMMAND 


e 
FESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SS SSSSSS SSS SSS SSS SSE SESS 


180$: 


190%; 


#141005, T27PK3 
0256. 1e7SZ 


T27PK 
R4.TSDBCRS) 

TSenc AS 5),R 
assnisciéitz, R2 
180% 

FATFLG 

ERRNO, T27TSA,PKTSSR 


T27BFR+14,R1 

R1,R2 

seiTo. R2 
1,R2 


a3 $ 
FATFLG 
ERRNO, T27NEF ,EXPREC 


FATFLG,@15. 
999% 
PC, CKDROP 


;WRITE DATA RETRY,ACK,CVC=1 COMMAND 
3SET UP THE SIZE OF RECORD 

;SET UP R4 WITH PACKET ADDRESS 

3 OMMAND 

;WAIT FOR SSR TO SET 

:GET TSSR CONT 

;SET UP EXPECTED TAPE STATUS ALERT 
;ARE THEY EQUAL 


3BR, IF OK 
F OUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD ph. 
-WORD T27TSA 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP C$CLP1 
sGET XST3 STATUS WORD 
F UP EXPECTED 
sSET THE RIB BIT 
sARE THEY EQUAL 
38R, IF EQUAL (GOOD) 
$ COUNT 
sNEF SHOULD BE SET 
TRAP CSERHRD 
. WORD 16 
«WORD T27NEF 
. WORD Cc 
TRAP C$CLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
0124: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
1BR. IF LESS THAN ate 
sTRY TO DROP THE UNI 


SEQ 0286 


é 
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SEQ 0287 
TEST 7: WRITE DATA RETRY 


13359 


t¢ 


13551 ' 

13538 sTEST 7, SUBTEST 3 

13554 i VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0 

13555 sTERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 

13556 iCTHE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 

13557 BYTE COUNTS AND DATA PATTERNS ARE USED. 

13556 3 

13559 ; 

13560 3 

13561 3- 

13562 p Lhe BGNSUB g>>>>>>>>>>>> an SUBTEST >>>>>>>>>>>> 
077406 1 “"F TRAP csBsuB 

13563 077410 004737 1 JSR PC. , T27REST ;SET COMMAND PACKET 

13564 077414 004737 106136 JSR T27RT2 :SET UP OTHER COMMAND PACKET 

13565 077 004737 1 JSR PC, T27RTS 3SET UP OTHER COMMAND PACKET 

tsees SSESRKSEKSSE KAS SR AK RAE SHEKHAR ER EKER KEKE KEKE EKER HK SHER EHH ES HH 

13369 ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

13373 : SSSSSSSSSSSESSSSESSSSSESSSSSESSSSSSSESKSSSESSSSSSESSSESSESSESSSSESSSSSESsesessesese 

13573 077424 004737 016114 JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 

13574 077430 103407 BCS 20 :8R IF INIT WAS OK 

1 077432 005237 002212 INC ATFLG sBUMP C 

13579 077436 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

13580 077440 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT ant 
077440 104455 CSEROF 
077442 001315 "TORO 717 
077444 0036 WORD SFIERR 
077446 012154 .WORD SFIMSG 

13581 077450 013737 002172 102730 208: MOV UNITN T27DSW ;SET UP UNIT NUMBER IN PACKET 

13582 077456 012704 102710 MOV 7PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

1338S SEEKS KERSEEKEAE KEKE HEHEHE KECEKEHEKARA ESSE KARE AEH SRE KEREREEKH RSH 

13586 }WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

13388 - SEEKER ESSERE SKE KRE EKER SE KEKE KKK SSK EAKR EK RKEKEE SKE SHEE KKREKE SH 

133 90 077462 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

13591 077466 103407 BCS 233 3BR, IF COMMAND ISSUED OK 
077470 005237 002212 INC FATFLG sBUMP C 

13596 077474 010001 MOV RO,R1 SAVE CONTENTS OF T 

13597 077476 ERRHRD ERRNO,WRTMSG, SFIMSG iWRITE CHARACTERISTIoc FAILED 
gress S8itie a ag 
077502 *WORD WRTMSG 

: 077304 012154 a cede aon .WORD SFIMSG 

— 104406 . am am TRAP —- CSCLP1 

13600 PSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSESSSSSSSSSESESSSESSSSESSESSESSSs 
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VISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

: SSCSSSS SS SSS SSS SSSSSSSSESESESTSSESeSeTeSeeEeEsEeSeESeTeSeSESESESTES 
JSR sCALL_ TAPE REWIND COMMAND 
BCS sBR, IF NO PROBLEM 

MOV RO sSET UP REWIND PACKET ADDRESS 


INC sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 


30$: CKLOOP sLOOP IF SELECTED 


LCREKCE SAKE SEES EEE KEE TRAP EECEKE ERK EEK KEK ERE SKE REKTA KEKE KEE SES EE 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
_ cuseuasevesersreseseseesossunesesesensoosersesosssesesesoesesesese 
013701 T27BFR-6,R1 sPICK UP XSTO 
3SET UP EXPECTED 
e6iT1,R2 3SET BOT BIT IN EXPECTED 
R1,R2 ;D0ES EXP = REC'D 
40 3BR, IF EQUAL (OK) 
FATFLG OUNT 


BUMP C 
ERRNO, T2780T,EXPREC _; TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


TRAP 
12 000024 920. ,R3 sSTARTING RECORD SIZE 
013737 FREE , T27WB sSTARTING WRITE BUFFER ADORESS 


PSL KEK HSER ESCSS HSE ECLESKKKSE KE SLSKKLEKEL EKER KSCRE KSEE KES GE HES 
WRITE DATA,CVC*1,ACK COMMAND 
: SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSesesessssesess 


140005 103040 65%: sWRITE DATA. CvCe3 ACK COMMAND 
103040 3SET UP R4 WITH PACKET ADDRESS 


017542 
103046 


000000 
016370 
000002 
000200 


s SIZE 
{WAIT FOR SSR TO SET 
TSSR_CONTENTS 


Aa essgssesss 


13652 077652 
13653 077654 





E7 
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13657 077660 ERRHRD ERRNO, WRTERR ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
077660 TRAP cs 
077662 
y Lh 9 


077666 
13658 077670 80$:  CKLOOP LOOP IF SELECTED 
077670 . “ 


PESTER HCE EKS EKER EK EK ESE SEHR CHK EKER H HERSEK EH EEE EERE ERE EH 

iWRITE DATA RETRY.CVC#=1,ACK COMMAND 

| coccecococosccosososeesoosooocosocesosocosssossoocososoceocesess 
141005 103040 141005, T27PK3 WRITE DATA RETRY,CVC#1,ACK COMMAND 
000000 MOV (RS) 


R4, s ISSUE COMMAND 
016370 PC ,WAITF sWAIT FOR SSR _ TO SET 
000002 


TSSR(RS),R1 GET TSSR CONTENTS 
000200 @5SR,R2 
R1,R2 
903 
FATFLG ;BUMP COUNT 
ERRNO, TO7WRF ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 


- WORD 
- WORD 
. WORD 
TRAP 
sBUMP RECORD SIZE COUNTER 
sAT 40 SIZE YET 

sBR, IF MORE RECORDS TO WRITE 


sLOOP IF SELECTED 


j SSSSSS SSeS SSeS SeSeSeSS SESS SESE SS SSSR SSSSESESESSST ESSE TEESE ESESSES 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
: SHSSSS SSS SSS SSS SSeS SSS SSS SSSSS ESTES SSS SSSTSSSSeEeeESeeeeeEEsESS 


JSR sCALL TAPE REWIND COMMAND 
BCS 36R, IF NO PROBLEM 

MOV 1 sSAVE TSSR 

INC sBUMP COUNT 

sREWIND NOT ACCEPTED 


230%: CKLOOP sLOOP IF SELECTED 


pPSSSSSSSSSSSSSSTSSTSSSSESSSSETESS TSS SSSS SEES ESEESETESESSESSEESEETS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
§SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSESSSSSSS Sess 
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013701 102740 
010102 
000002 


012703 
013737 
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MOV T27BER+6,R1 
MOV R1,R2 
seit. R2 
1,R2 


$ 
FATFLG 
ERRNO , T27B0T , EXPREC 


#20. ,R3 
FREE, T27RB 


sPICK UP XSTO 
sSET UP EXPECTED 

sSET BOT BIT IN CTED 
sDOES EXP = REC‘ 

sBR, IF EQUAL (OK) 


BUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


TRAP 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSESSSSESSSSSSSSSESSess 


}READ DATA, ACK COMMAND 


é 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSsss 


103040 265%: #100001 , T27PK3 
OT27PKS RE 


eT2 

R3, T27se 

Ra. TSDBCRS) 
TSERCRS) RL 
gat 

280% 

FATFLG 
ERRNO, RDERR , PKTSSR 


MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
chp 
IN 
ERRHRD 
CKLOOP 
MOV 
MOV 
SUB 
ADO 
CMP 
BEQ 
MOV 
MOV 
INC 
ERRHRD 
CKLOOP 


« 
wn 
« 


sREAD DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

1SE UP RECORD SIZE IN PACKET 
COMMAND 


sWAIT FOR SSR_TO SET 
sGET TSSR CONTENTS 


sLOOP IF SELECTED 


sGET BUFFER ADDRESS 
seer RECORD 
RECORD 


INT BACK TO 1ST 
;POINT TO 1ST LOC IN BUFFER 
sDATA WRITTEN = READ 

s6R, IF yt OK ox {core 
sPICK UP BAD 

sSET UP EXPECTE 


sBUMP COUNT 
sDATA IN BUFFER NOT CORRECT 


sLOOP IF SELECTED 


sBUMP TO NEXT ADDRESS 
sBACK TO RECORD SIZE 





G7 
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13756 100174 3 CMP R4,R3 sAT END OF RECORD YET 
13757 100176 001360 BNE 285% 36R, IF MORE DATA TO CHECK 
758 100200 005723 TST R3)- +4 RECORD SIZE 
13759 100202 020327 000050 CMP 3,040. YE 
3760 1 001317 BNE 265% IF a 4 coe YET (MORE READS) 
13761 100210 300$:  CKLOOP POOP TF CTED 
100210 104406 TRAP CS$CLP1 
13762 100212 330%: 
13763 100212 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
100212 L10125: 
100212 1 TRAP CsESUB 
13764 100214 023727 002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 
13765 100222 10 BLO 999% sORe IF LESS THAN 25 
13766 100224 004737 017322 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
13767 100230 999%: 
13768 
13769 - 
13770 8 
tev sTEST 7, SUBTEST 4 
3 
13 sVERIFIES THAT A ag iy gh RETRY C WITH SWB= 
13774 s TERMINATES PROPERLY ve he A a: CT wee irae T 
13775 s( THE WRITTEN RECORD IS READ AND 
13778 sBYTE COUNTS AND DATA PATTERNS Rae 
777 3 
13778 3 
13779 3 
13780 :- 
13781 100230 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
100230 17.4: 
100230 1 TRAP Cs#8SUB 
13782 100232 004737 106044 JSR PC, T27REST 3SET COMMAND PACKET 
13783 100236 004737 106136 JSR PC, T27RT2) sSET UP OTHER COMMAND PACKET 
13784 100242 004737 106200 JSR PC, T27RT3 sSET UP OTHER COMMAND PACKET 
teres 100246 012737 176750 103072 MOV #65000. , T27DLY sSET UP DELAY COUNTER 
1376? Mitiiiiititiitiitttitiitiititiitttitttiiit iti tt itt t ttt ttt tt tt tt tt 
3 
tsre0 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
13793 Prtitiiitti tii titi iii iti iii iittttitttti titi iit tittt ttt ttt ttt te tt tS 
13793 100254 004737 016114 10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
13794 100260 103426 BCS 204 36R IF INIT WAS OK 
13795 100262 DELAY 3 Y ABOUT .25 SEC 
: 012727 000250 a a 058. CPC D+ 
100270 013727 002116 MOV LSDLY,CPC)- 
100274 . WORD 0 
100276 005367 177772 DEC -6(PC) 
100302 001375 BNE .-4 
100304 7 177756 DEC -22(PC) 
100310 001367 BNE .-20 
3796 100312 337 103072 DEC T270LY sBUMP COUNTER 
13797 100316 001356 BNE 10% 3BR, IF COUNTER NOT DONE 
137986 100 37 002212 INC FATFLG sBUMP COUNT 
13802 100324 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 


H7 
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ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS ag A 


104455 CSERDF 
pais 4 $4 -WORD 727 
00 -WORD SFIERR 
012154 -WORD SFIMSG 
013737 002172 102730 20%: MOV UNITN, T270SW sSET UP UNIT CORIVE) NUMBER 

012704 102710 MOV OT27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


004737 010752 
005237 002212 


HY 011136 


010004 
005237 002212 


i 
012166 


013701 102740 


952702 000002 


§FSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSSS SSS SSS SSSS SSS SSS SSS SESS SSSSSS 


iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


b 
FFSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSSSSSSSSSSSSSSSESSSSESSSESSESSSSS SESS SSeS 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 23% 38R, IF COMMAND ISSUED OK 

INC FATFLG i 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
. WORD 
> WORD 
WORD 

23%: CKLOOP ;LOOP IF SELECTED 

TRAP 


{SSCSSSSSS SSS SSeS SSeS SSS SSS SSeS SESE SESESE SESS SEES ESESEE SESE SEES EEESE 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
F FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSSSSSSSSSSSSSSESSS SESS Ss 


JSR PC REWIND sCALL TAPE REWIND COMMAND 
BCS ;6R, IF NO PROBLEM 
MOV TSSRCRS),R1 :GET TSSR CONTENTS 
MOV RO,R4 ;GET PACKET ADDRESS 
INC FATFLG :BUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED an 
. WORD 
* WORD 
"WORD 
304: CKLOOP ;LOOP IF SELECTED 
TRAP 


PSSST SS SSS SSS TESST ESE SES SESS S ETS SE TESTS SES SETESSSSESESEESESSETES 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


A 
§FSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSSSS SSS SSS 


MoV T27BFR-6,R1 sPICK UP XSTO 

MOV R1,R2 3SET UP EXPECTED 

Bis eeiti.R2 SET BOT BIT IN EXPECTED 
cre Ri ;D0ES EXP = REC'D 


40 sBR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 


SEQ 0292 


17 
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DATA RETRY 


TEST 7: WRITE 
13855 100452 


1044 

Oot sae 
103741 
015614 


104406 
012703 
013737 


000024 
003116 


MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 77-186 


103042 


103040 


ERRHRD ERRNO, T27B0T ,EXPREC s TAPE NOT AT BOT AFTER REWIND 
TRAP os 
«WORD T27B0T 
«WORD EXPREC 
404: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV #20. ,R3 sSTARTING RECORD SIZE 
MOV FREE , T27WB sSTARTING WRITE BUFFER ADDRESS 


FSSC CS SS SS SSS SSS SSS SSS ESTES SESS ESSERE TEREST ESET EET EEE ESE SEE ESE 
; 
sWRITE DATA,CVC=1,ACK COMMAND 


3 
F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSESSESSSSESSES 


654: MOV 140005, T27PK3 ;WRITE DATA, CVC 1,ACK COMMAND 
MOV @T27PK3.R4 3SET UP R PACKET ADORESS 
MOV R3,RO ay ATTERN IN CORRECT REGISTER 
JSR PC. FILLMEM FILL MEMORY WITH RECORD SIZE 
MOV R3,727SZ }SET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS) sISSUE COMMAND 
JSR PC, WAITF }WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV @SSR,.R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 803 :8R, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA. 
.WORD 73 
“WORD URTERR 
WORD PKTSSR 
80$: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 
§ PSSST SSSS SSS SSS ESSE SSS SSS SSS SSS SESS SSESSSSSSSSSSSESSSSEESESEEETS 
;WRITE DATA RETRY,ACK,SWB=1 COMMAND 


é 
F FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSESSS 


MOV #111005, T27PK3 ;WRITE DATA RETRY,ACK,SWB=1 COMMAND 
R4, TSDBCRS) 1TSSUE_ COMMAND 
JSR PC; WAI sWAIT FOR SSR TO SET 
MOV TSSRC(RS),R1 :GET TSSR CONTENTS 
MOV @SSR,R2 SET UP EXPECTED 
CMP R1,R2 1ARE THEY < 
BEQ 90 IF OK 
FATFLG OUNT 
ERRHRD ERRNO, T27WRF ,EXPREC rue INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 
. WORD 
"WORD T27WRE 
"WORD 
90$:  CKLOOP ;LOOP IF SELECTED 


SEQ 0293 


J7 


TSV7 - 


TEST 7: WRITE 


100634 
100636 
100642 


HARDWARE TESTS 1-8 


DATA RETRY 


005723 
020327 
001315 


000050 


000024 
003116 
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TST (R3)- ;BUMP RECORD SIZE COUNTER 
CMP R3, 040. sAT 40 SIZE YET 
BNE 653 ;BR, IF MORE RECORDS TO WRITE 


ESSSCSSSS SSS SSS SSS STE E TESS SES SESS S ETERS SESS ESSE SESE TEST ESET EEE ES 
: 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


4 
FSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS S SSS SS SSSSESSSSSSSSESSSSSSSE SSS SSS SESSESS 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

BCS 230% IF NO PROBLEM 

MOV TSSR(RS),R1 ert TSSR CONTENTS 

MOV RO,R4 ;GET PACKET ADDRESS 

INC FATFLG BUMP COUNT 

ERRHRD ERRNO, T27RWN,PKTSSR REWIND NOT ACCEPTED vate 
. WORD 
"WORD 
"WORD 

230%: CKLOOP ;LOOP IF SELECTED 

TRAP 


FCSSSSSSS SSS SSS SESS SSS SSS SESS SES SESE SESS ESSE SESESESEEE EEE SEEESE 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSESSS 


MOV T27BFR+6,R1 sPICK UP XxSTO 
MOV R1,R2 EXPECTED 
BIS #61T1,R2 SET BOT BIT IN EXPECTED 
CMP R1,R2 DOE REC'D 
BEQ $ '8R, IF EQUAL COK) 
INC FATFLG :BUMP C 
ERRHRD ERRNO, T27B0T ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
THORD 
. WORD 
> WORD 
240%: CKLOOP ;LOOP IF SELECTED aa 
MOV $20. .R3 sSTARTING RECORD SIZE 
103042 MOV FREE, T27RB sSTARTING READ BUFFER ADDRESS 
SSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSESSESSSSSSESSSSSSESSSESesss 
READ DATA,ACK COMMAND 
aires ema ons ip> > nee gelatat 
103040 265%: MOV #100003, 12 .T27PK3 sREAD READ DATA. ACK 
MOV PACKET ADDRESS 
MOV R3, erorst Sey uP RECORD" SIZE IN PACKET 
MOV R4.TSDBCRS) 1TSSUE COMMAND 
JSR PC; WAIT ;WAIT FOR SSR TO SET 


TSSR(RS),RI 


sGET TSSR CONTENTS 


CSERHRD 
734 
T27B0T 
EXPREC 


CsCLP1 


SEQ 0294 
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TEST 7: WRITE DATA RETRY 
000200 @SSR,R2 

R1,R2 

280% 

FATFLG 

ERRNO, RDERR,PKTSSR 


aa8 


PE 


= 
wn 
= 


SAT END OF REC 
‘8R, IF MORE DATA TO CHECK 
BUMP RECORD SIZE 


SUB 
SWAB 
CMP 
BNE 
TsT 


: 
i8R, IF NOT DONE YET (MORE READS) 
iL Pode IF SELECTED 

CSCLP1 


TRAP 
3>>>>>>>>>>>> END nesses >>>>>>>>>>>> 
: 
TRAP CsESuB 
3IS ERROR COUNT AT 
1ORe IF LESS THAN 
sTRY TO DROP THE UNIT 


8 eae 
8 


FATFLG,@15. 
999% 
PC ,CKDROP 


B58 


999%: 

ad 

;TEST 7, SUBTEST S 

VERIFIES THAT A WRITE DATA RETRY COMMAND IS 

I PERFORMING THE “ERASE” PART OF THE OPERATION BY 

: PERFORMING THE FOLLOWING SERIES OF STEPS. 

i. THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
i 


WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
3 SHOULD RESULT IN RECORDS SEPARATED BY THE 





4046 101172 


016114 
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STANDARD INTERRECORD GAP. 


A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
THE TAPE AND THEN CONUTING THE NUMBER Sate but 
THROUGH A PROGRAMMED LOOP REQUIRED TO SP OVER 
es OF RECORDS WRITTEN IN PREVIOUS 


_ 


ws 


THE TAPE IS AGAIN REWOUND THE SAME SERIES OF 
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
DATA RETRY COMMAND. S SHOULD RESULT IN 
RECORDS SEPARATED BY A LONG INTERRECORD GAP. 


THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
COUNTED TO COMPLETE THE OPERATION. 


THE TWO LOOP COUNTS ARE COMPARED CHECKING TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT 


& 


e 


g>>>>>>>>>>>> eee SUBTEST >>>>>>>>>>>> 


7.5 
* TRAP 
LINTERRUPT INDICAT 


OR 
sTIMER FOR WRITE DATA SPACI 


C$B6SUB 


NG 
sTIMER FOR WRITE DATA RETRY SPACING 


3SET COMMAND PACKET 
+SET 4 OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 
sSET UP DELAY COUNTER 
SERIE K ERS RK KKH SCHR SEKS TKS THE HARKER SR SESHEK HSC ESS HERS EC ECTHKSSEH SERS SE 
TISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
s Cocoscocossooooooooossossnoosoosoooossooscooosooooooosoosoosescese 
10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 203 :8R IF INIT WAS OK 
DELAY 250 ;DELAY ABOUT .25 SEC 


OR IF COUNTER NOT DONE 
8 ° 


‘CONTENTS OF TSSR REGISTER 


250.,(PC)- 
LSDLY,CPC)- 
ecec) 
~22(PC) 

20 
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ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS a A 


WORD 
- WORD 
002172 102730 20%: MOV UNITN, T270SW 


102710 


3SET UP UNIT NUMBER 
MOV —s-@T27PACKET.R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
PESSeTESC REHEARSE EERE EERE SEAEKEKESE SEH ERE STKE HKARERERESHKH SESE HERE 
{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


§SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSESSSSSSESSESSSSS 


JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 233 38R, IF COMMAND ISSUED OK 
INC FATFLG :BUMP C 

MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC FAILED 


“WORD 

TRAP 
p FSSSSSS SSS SSS SS SSS ESESS SESS SESS SSSTESSSSSSSTESESeSSESESSESSSESSS 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


23%: CKLOOP sLOOP IF SELECTED 


F FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSsS 


PC, REWIND sCALL TAPE REWIND COMMAND 
303 BR IF NO PROBLEM 
TSSR(RS),R1 sGEt TSSR ENTS 

RO,R4 3GET P ADDRESS 
FATFLG ; COUNT 

ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED 


30%: CKLOOP sLOOP IF SELECTED 


SS SEARS SHS SECSSE PKS SE STES RISC SKEKELS EES ESSE SMS SCL SERRE SSSVURSSEERKE REVS SHH 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
8 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSESSESSESSSSSSSSESsSesese 
MOV T27BFR+6,R1 10 
MOV R TED 
Bis £71 .R2 IN EXPECTED 
R1,R2 Cc’ 


1 s00ES 
BEQ 404 30R, IF EQUAL (OK) 





N7 
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14105 101364 005237 002212 INC FATFLG sBUMP COUNT 
104456 ERRHRD ERRNO, T27B0T ,EXPREC sTAPE NOT AT BOT AFTER a ty 


001344 ° 
103741 - WORD 
101376 015614 . WORD 
14110 rapt 40%; CKLOOP sLOOP IF SELECTED 


104406 TRAP 
14111 101402 012703 000 MOV #100. ,R3 OF RECORDS TO BE WRITTEN 
14112 10 ADDRESS 


:NUMBER 
1406 013737 MOVs FREE. f2 78 ISTARTING WRITE BUFFER 
FECES AK SHES SKSEK SERS KE SSRSRK SESS SKS SH SHH KEK TSE SSS ESKESHRESKERES 
iWRITE DATA,ACK,CVC=1 COMMAND 
14119 eeneneaseenenonsecsasnetesnsensennesessenseneenasenseceesesesenent 
14120 101414 012737 140005 65$: WRITE DATA. ACK .CVC*1_ COMMAND 
4121 101422 MOV ISET UP R4 LIITH PACKET ADDRESS 
tSET UP RECORD SIZE IN PACKET 


s ISSUE 
sWAIT FOR SSR TO SET 


CéCLP1 


‘ COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP $ 


101466 
101470 
101472 
14134 101474 sLOOP IF SELECTED 
101474 104406 
14135 101476 DEC R3 sDEC RECORD COUNTER 
tes] 101500 65% sBR, IF MORE RECORDS TO WRITE 
s SSSeeesereseeseeeseseseseseeeeeeeseeSeeeseseseseeSeTeseSeeeTESeCES 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
> Seesessessseseseseseseseseseeeeeeeeeeeeseeeseeeseeseseseseeeeesess 
$ 
TSSRCRS),RI 
RO,R4 


FATFLG 
ERRNO, T27RWN,PKTSSR 


30% LOOP 
13504; ’ IF SELECTED 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSesesesseseseseseeeeseeeeees 
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;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
§FSSSSSSSSSSSSSSSSSSESSESSSSSSESSES SSS SSS SSS SSSSESSSSSSSS SESE ESSE SSE SSESTSE 


T27BFR+6,R1 
R1,R2 
B1T1,R2 
R1,R2 


140% 
FATFLG 
ERRNO, T27B0T , EXPREC 


MOV OT27PK3,R4 
MOV #10, T27RB 


cre UP _XSTO 

sSET UP_EXPECTED 

iSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 

:BR, IF EQUAL (OK) 

sBUMP COUNT 

; TAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 


TRAP 
sSET UP PACKET ADDRESS 
sSET UP RECORDS TO SPACE OVER 


FFSSSSSSSSSSSSESSSS SSS SSS SSSSSSSSSSSESSSSSSSSSSSSSESSESSSS SS SSS SESS SESE ESS 


}ACK,CVC#1,SPACE FORWARD COMMAND 


3 
FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSS SSS SESE SSES SESS 


MOV #140010, T27PK3 
MOV R4, TSOBCRS) 
INC T27CNT 

DELAY 1 


MOV 
BIT 
BEQ 
MOV 
MOV 


BEQ 
INC 
ERRHRD ERRNO, T27SCF ,,PKTSSR 


160%: CKLOOP 


sACK,CVC=1,SPACE FORWARD COMMAND 
s ISSUE COMMAND 
sBUMP TIMER 
sDELAY ABOUT 100US 
3.6003 


LSOLY,(PC)- 
~6CPC) 
*39¢PC) 
.-20 
:GET TSSR 
sex FOR TSSR’'S SSR SET 
OUNTING UNTIL SET 
iGET STATUS FROM TSSR 
sSET UP EXPECTED 
+WAS EVERYTHING OK 
3BR, IF ALL IS WELL 
sBUMP COUNT 
sSPACE FORWARD DIDN’T WORK OUT 
TRAP 
~ WORD 
. WORD 


sLOOP IF SELECTED 
TRAP 


FFSSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SS SSS SSSESSSSS SSS SESS SSS SS SSSSSESESSS 
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103042 


103040 
103046 


sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


A 
FFSSSSSSSSSSSSSSSSSSSS SSS SSS SS SS SS SS SS SSE SSS SSS SESS SSSSESSSSESSESSESSES SS 


di ; NO CALL T REWIND COMMAND 
JSR PE’ CHT OER ; HOM TScR 

BCS 170$ te eNO SSROBLEM 

MOV RO,R1 sSAVE TSSR 


sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 


TRAP CSERHRD 
.WORD 745 
* PKT 
170%: | CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSSSSSESSSSSSSSESSSESSSSESSESSESSE 
3 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
8 FSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSESSSESSSSSSSSSESESSESSESSSESSSESSSSESSSS 
MOV T27BER-6, Ri ;PICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS goin. R2 ise BOT BIT IN EXPECTED 
CHP R2 EXP = REC'D 
BEQ eri 1BR IF EQUAL (OK) 
INC FATFLG COUNT 
ERRHRD ERRNO, T27B0T ,EXPREC }TAPE NOT AT BOT AFTER REWIND 
; TRAP § CSERHRD 
.WORD 746 
"HORD  EXPREC 
175$:  CKLOOP sLOOP IF SELECTED 
TRAP —- C$CLP1 
MOV #100. STARTING RECORD SIZE 
177%: MOV PS }STARTING WRITE BUFFER ADDRESS 


§ SRST SEK KS RER ESHER SEHK SEK SKELTER SKE SH SS TECHS SEES ESE RES HEH 
SWRITE DATA,CVC#=1,ACK COMMAND 


t] 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSESSSs 


MOV #140005, T27PK3 sWRITE DATA. govern ACK COMMAND 
MOV OT27PK3,.R4 sSET UP R4 PACKET ADDRESS 
MOV $20. ,T27SZ SET UP RECORD SIZE IN PACKET 
Moy R4,T £RS2 8 
PC, ' SSR TO SET 

MOV TSSR(RS),R1 sGET 1SSR CONTENTS 
MOV R2 sSET Up EXPECTED 
cre R1,R2 sARE E 

Q 180$ s8R, IF OK 
INC FATFLG c 


sBUMP -COUNT 
HRD ERRNO, WRTERR ,PKTSSR iTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


SEQ 0300 
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180%: CKLOOP sLOOP IF SELECTED 


DEC R3 sCOUNT NUMBER OF RECORDS 
BNE 177% sBR, IF MORE RECORDS TO WRITE 


ESTES SS SSS SES SS SSE S ESET SSE SS SESE SS ETESESSSEESESESEESEESESESSESS 
: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
: SSSSSSSSS SSS SS SSS SSSSSSeSSeeSeeeEeeseTeeeeeeeReeeSeeESESeSTESeSTES 
JSR s ISSUE REWIND 
BCS ‘= IF ALL IS WELL 
MOV PACKET ADDRESS 
iGET TSSR CONTENTS 
sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR ; REWIND FAILED 


sSELECT LOOP MAYBE ’ 


s FSSSSS SSS SSS SSS ESES SSE SES SS SES SESSSESSESSESSSETeEEESESSSESEESEETTE 
RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
ORWARD 1=REVERSE 


ISSUE SPACE 
i8IT 1S SETS DIRECTION - O=F 
-euenneeevoeseseecennnssuesesananennnaseeeennsonenmnneneennensenes 
:SPACE 1 RECORD FORWARD 
COMMAND 


sISSUE SPACE 
36R, IF COMMAND OK 


PACKET ss 
eet Tesh STATUS 


BUMP C 
"T27SCF ,PKTSSR SPACE FORWARD COMMAND FAILED 


sLOOP IF SELECTED ay 
FREE. to7uB ISTARTING WRITE BUFFER ADDRESS 
FS FSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSESSESSESSSSSSSSSSSSSSSSSSSSSSSSSESSSSese 
}WRITE DATA RETRY,ACK COMMAND 


4b 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSse 


101005 103040 190%: MOV 101005, T27PK3 sWRITE DATA RETRY,ACK COMMAND 





TSV7 - HARDWARE TESTS 1-6 MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 77-197 


TEST 7: WRITE DATA RETRY 


» T27WOC ,PKTSSR 


200%: 


32  9yEgaayaaa 
; oF 


FREE , T27W8 


;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 


sBUMP COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 

-WORD 750 

WORD T27WOC 

-WORD PKTSSR 

CsCLPi1 


sLOOP IF SELECTED _— 
sSTARTING WRITE BUFFER ADDRESS 


» FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSS SESS SS SS SSSSSESSESSS 


;WRITE DATA,CVC=1,ACK COMMAND 


4 
§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSSSSSESSSSSsS 


ERRNO, WRTERR ,PKTSSR 


MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 
CKLOOP 
DEC 
BNE 


R3 
190% 


sWRITE DATA. govGn3 ACK 

sSET UP R4 PACKET ADDRES 

sSET UP RECORD" SIZE IN PACKET 
COMMAND 


}WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

Oe IF OK 

i TSSR Per INCORRECT AFTER WRITE DATA 

C#ERHRD 

TORO 751 
“WORD WRTERR 

sLOOP IF SELECTED ‘ 


TRAP CsCLP1 
sBUMP DOWN RECORD COUNTER 
sBR, IF MORE RECORDS TO WRITE RETRY 


SSCS SSSSSSseseSeSeeSSSeSSSeSSSSSSSSSSeSSESSETEeSSSSSTSESEeTSESSTSESS 
rISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSss 


REWIND 
FSSA(RS),RI 

14354 102374 010004 RO 

14355 102376 FATFLG 

14359 102402 ERRNO, T27RWN,PKTSSR 


1B TE NO, PROBL REWIND 2 Caos 
Neel Tash CONTENTS, 


‘BUMP COUNT 
REWIND NOT NOT ACCEPTED 
TRAP C#ERHRD 
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001360 - WORD 

104245 . WORD 

012166 . WORD 
230%: CKLOOP sLOOP IF SELECTED 

104406 TRAP 


FSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSESSESSSESSSSSSSESSSSSSSSSSeSESSSESSesss 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
: SSSSSSSSSSSSSSSSSSESSSESSSSSSSSSSSESSSSSESSSSSSSESSESSSSSSESseseseessesesessesse 
013701 T27BFR+6,R1 PICK UP_XSTO 
010102 MOV Ri,R2 iSET UP EXPECTED 
#61T1,R2 sSET BOT BIT IN EXPECTED 
R1,R2 }DOES EXP = REC'D 
$ 8R, IF EQUAL (OK) 
FATFLG BUMP 
ERRNO, T27B0T , EXPREC STAPE NOT AT BOT AFTER REWIND 
;LOOP IF SELECTED 


MOV OT27PK3,R4 sSET UP PACKET ADORESS 
MOV #10, T27RB 3SET UP RECORDS TO SPACE OVER 


PCEKKSEESTESEEETEEK AES AK AHR RSH ERA EECER SAKE CHEK SERERHEEHEE SHE ESE EE 
}ACK,CVC#1,SPACE FORWARD COMMAND 

: SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSSESSESsssesses 
MOY #140010, 127KS 

MOV R4, TSDB(RS) 

INC T27CNU 

DELAY 


250%: 

252%: 
$} ° CPC)- 
eee 
~6¢PC) 
-22(PC) 
--20 


Yesncns) oR1 
@BIT7,R1 


$ 
SSRCRS),RI 
ao mi 
260% 
FATFLG 
ERRHRD ERRNO, T27SCF,.PKTSSR 





G8 
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fous 
13701 103066 
103070 


000077 
000777 


002212 


002212 
017322 


016576 
076226 


“ne 


MACRO VOS.03 Tuesday 26-Apr-87 06:46 Page 77-199 


000017 


2608: 


Sanes 2 
g 


pits 


300$: 


B58 


163$: 
EXIT 


T27CNT,R1 
af ee »R2 


FATFLG 
ERRNO, T27TIM, EXPREC 


FATFLG, #15. 
999% 
PC ,.CKDROP 


.  seceaall 
T27L00P 
TST 


}LOCAL STORAGE FOR THIS TEST 


.BLKB 
T27PACKET : 
WORD 
. WORD 
WORD 
WORD 
T27DATA: 
WORD 
. WORD 
. WORD 
WORD 
T27D0SW: .WORD 
T27BFR: .BLKW 


}WRITE SUBSYSTEM MEMORY COMMAND PACKET 


10-<.-TSV2E7> 


100004 
T27DATA 
te) 

10. 
T27BFR 
te) 

20. 

te) 

f°] 

25 . 


SEQ 0304 

.WORD T27SCF 
.WORD PKTSSR 

3LOOP IF SELECTED 

C$CLPi 

sTIME FOR WRITE SPACI 

sTIME FOR WRITE RETRY SPACING 

3;GET’'EM TY CLOSE 

3 ‘EM TY CLOSE 

‘EM TY CLOSE 

sCLEAR LOW 6 BITS 

3 ING UP CONSTANTS 

sCHECK FOR DIFFERENCE 

3BR, IF aaaa CHECK aaaa 

sBUMP COUNT 

sTIME WAS NOT DIFFERENT ENOUGH 
TRAP C$ERHRD 
> 755 
.WORD T27TIM 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP Cs#CLP1 


3<<<<<¢¢¢¢<¢<¢¢<¢<¢ END SUBTEST >>>>>>>>>>>> 
L 


10127: 
TRAP C$ESUB 
:IS ERROR COUNT AT 25 
:0R, IF LESS THAN 25 
sTRY TO OROP THE UNIT 
D0 We NEED TO ITERATE TEST 
NO _L.00P REQUIRED 
BR IF 
sALL DONE THIS TEST 
TRAP C$EXIT 
.WORD L10122-. 


sCOMMAND PACKET FOR TEST 
{WRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


SELECT DRIVE 0 
Eee ce BUFFER 


H8 
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T27PKe: 


13783: : 
; 
; 


10-<.-TSV2E7> 
100006 

T27BF2 

te) 

6 . 
10-<,-TSV2E7> 
100005 

FREE 


10 
200 
te) 
0 


.EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T27B80T: 
T27TIM: 
T27EOT: 
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;WRITE SUB SYS MEM COMMAND 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


3SEL AREA 
sDATA AREA 


sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
sWRITE CONTINOUS 

sEND OF DATA 

sTAPE TIMER COUNTER STORAGE AREA 


sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


‘Tape Position Incorrect After REREAD Previous (OPP=1)' 
‘TSSR I rect After ~~ DATA 


) Command Failed’ 


cca. ean tameiind 
Command) Felisd, 3 ré°60 wet Correct’ 


"TSSR Correct After Ill 


‘Ill 
*RERE 


13°Set it Hoge Ort s Set’ 
Mode Bits, Feiled Set ILC Bit In XSTO’ 
COMMAND Not 


Ph Not Correct After 
vane Nos Not At BOT After po 

‘WRITE DATA RETRY''S Erase 

‘REREAD DATA OVER EOT GAVE NO 


T E DATA RETRY Command, A 
Commend 


NOP TAPE STARTS ACEET 


AND ACK 


t_ BOT’ 
coor Not Set e XSTO)’ 


SEQ 0305 


TSV7 - 


HARDWARE TESTS 1-8 


TEST 7: WRITE DATA RETRY 


14515 104170 
04245 
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102732 


T27TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Re ject’ 
T27RWN: .ASCIZ Rewind” POSITION) Command Not 
T27RNC: .ASCIZ ‘RAM Error, Correct Dete Pattern Not In Ram’ 
ETN “ASCE *TSSR Init. lect Fa; after . son 
8 « . ive ec ai n 
27WOD: .ASCI Peay BA, --d Atte + REREAD ATA In_TSsR* SWB Bit Set’ 
T27WOC: .ASCIZ ‘TSSR Not ooweeh A cor REREAD DATA Command’ 
T27VCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In a 
T27BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA 
T27WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
T27LON: .ASCIZ ‘Reading Lone Record Failed To Set RLL Bit In XSTO' 
T27LOP: .ASCIZ ‘Reading “Byte fount Feiled To Set RLS Bit in xSTO’ 
T27PBP: .ASCIZ Het pony Count Incorrect After Short ener yen 
T27TRL: .ASCIZ oding Leng Secord Feiled To Give T Stetus Alert 
T2T7NEF :  RSEtS Ware ATA RY, At First Record fei ed ysed ve. Set ate Bit XST3’ 
T27SCF: . I SR Not Correct After SPACE nF 
T27TSA: .ASCIZ :T88R Not Correct After WRITE DAT A RETRY, Ine Into BOT’ 
T27WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 
T27D0TA: .ASCIZ ‘Date re Error, Deta Read From Tape Not Equel To Written’ 
TST271D0: -ASCIZ ite Date Retry’ 


* 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
’ 
t- 


T27REST: 
SAVREG sSAVE THE REGISTERS 
MOV OT27PACKET,R1 sSTART OF THE PACKET 
MOV #100004, (Ri )- WRITE SUBSYSTEM MEM. WITH ACK, 
MOV @T27DATA, (R1)+ SS OF F SHARAISTics DATA BLOCK 
CLR Ri)e« iEXTENDED 
MOV $10. ,(R1)- sSIZE OF DATA BLOCK IN BYTES 
nov eT276FR,(R1)- sADORESS OF MESSAGE BUFFER 
HOV #20, .(R1)- sLENGTH OF MESSAGE BUFFER 
MOV 60,(R1) sSELECT DRIVE ZERO 
MOV $24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
644: MOV 0177777, T27BFRCR2) TALL ONES TO MESSAGE BUFFER 
TsT -(R2) sNEXT LOCATION 
CMP #0 ,R2 sAT END OF LOOP YET 
BNE 643 sKEEP GOING UNTIL DONE 
RTS PC ;RETURN 
T27RT2: 
SAVREG sSAVE THE REGISTERS 
MOV #T27PK2,R1 iSTART OF THE PACKET 
MOV #100006 . (R1)- WRITE SUBSYSTEM MEM. WITH ACK, 
MOV $T278F2.(R1)- OF DATA BLOCK 
CLR R1)- 1€x ees 
HOV 6. (R1)- sSIZE OF DATA BLOCK IN BYTES 
MOV 67278F2,R1 sPOINT TO DATA SEL AREA 


SEQ 0306 
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1457 
1457 


106172 
tosite 


DATA RETRY 


005021 
005011 
000207 


012701 
005021 
005021 
005021 
005011 
000207 


104401 


104402 


103040 


006450 
00 
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002170 


CLR (R1)- 
CLR (R1) 
RTS PC ;RETURN 
T27RT3: 
SAVREG sSAVE REGISTERS 
MOV OT27PK3,R1 sSET UP POINTER ADDRESS 
CLR (R1)- sCOMMAND SP 
CLR (R1)- 1 ADDRESS OF DATA BLOCK 
CLR (R1)- sEXT Ss 
CLR (R11) ‘SIZE OF DATA TRANSFER BLOCK 
RTS PC sRETURN 
ENDTST 
L10122: 
TRAP C$ETST 
.SBTTL TEST 8: WRITE/READ TAPE MARK 
Z 
; THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
' IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
sBY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
;TAPE MARK. IN ADDITION SINCE WRITE TAPE MARK IS THE FIRST 
sSUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED IT 1S VERIFIED 
{THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERAT S PROPERLY 
sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REUECTED 
3 
THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
3 
: 
a 
ae 18:: 
MOV GEPRT2,EPRTSW s SECONDARY ERROR MESSAGE 
CLR KTENABLE sTURN KT11 
JSR PC, KTOFF sTURN KT11 BACK OFF IF THERE 
MOV #TST281D,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP {00 INITIAL TEST SETUP 
MOV 05, LOOPCNT sPERFORM S ITERATIONS 
t iad 
TEST 8, SUBTEST 1 
: 
} VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 
sCODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
}REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
sVALID MODE CODES ARE CHECKED. 
3 
: 
t- 
T26L00P : 
BGNSUB g>>>>>>>>>>>> eee! Satesr >>>>>>>>>>>> 
“*f TRAP ss CSBSLB 


SEQ 0307 
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113506 
113600 


113642 
016114 
002212 
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111561 
111560 


geaceen’ 


; Vises 


+ 
i) 
« 


BNE 
MOVB 
MOVB 
MOV 
MOV 
JSR 
BCS 
MOV 
INC 
ERRHRD 
CKLOOP 
MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHROD 


$2 


ERRNO, SFIERR, SFIMSG 


T26DSW 
STSOPACRET R4 

PC ,WRTCHR 

24 

FATELG 

ERRNO, WRTMSG , SFIMSG 


EXTFEA 
50$¢ 

$10 10, t280s0. 
OT26PK2 ,R 

ha TSbBCRS) 

PC. CHKTSSR 

303 

RO,R1 

FATFLG 

ERRNO, T26SSR,PKTSSR 


TSSRCRS),R1 


= COMMAND PACKET 
T Ww onen COMMAND PACKET 
COMMAND PACKET 


sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS aa 


OK 

RAP 

-WORD 601 
-WORD SFIERR 
-WORD SFIMSG 
sSET UP DRIVE 

sSUBROUTINE NEEDS PACKET ADDRESS 

s ISSUE WRITE CHARACTERISTICS 

BR, COMMAND ISSUED OK 

’ 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 802 
-WORD WRTMSG 
-WORD SFIMSG 
CsCLP 


TRAP 1 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
sBR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 


; BUMP 
sTSSR NOT CORRECT AFTER wr. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 803 
T28SSR 
“WORD PKTSSR 


TRAP CsCLPi 
s SUBROUTINE + a PACKET ADDRESS 
iSELECT ORIVE 7 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sBUMP COUNT 
1SA CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FaAnLED 


sLOOP IF SELECTED 


sSCOPE LOOP 
sGET TSSR CONTENTS 
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14678 106506 
14679 106512 


14680 
14684 106520 


000100 
002212 


OOFL ,R1 


FATFLG 
ERRNO, T260FL , SFIMSG 


ones T SePKS 
OT2BPK3 .R4 
R4 ie 


333355833 2 


z 


» T26TM, PKTSSR 


CR3)- 
0177777,CR3) 
90% 

65% 


FATFLG,@15. 
999% 


PC ,CKDROP 
999%: 


3° 
iTEST 8, SUBTEST 2 
VERIFIES THAT A FORMAT COMMAND WITH 


Sez ore ert. :8rT2. Ra 


sCHECK FOR THE OFFLINE BIT SET 
:BR, IF OFFLINE (GOOD) 


sBUMP COUNT 
1OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSEROF 


805 
T280FL 
SFIMSG 


sLOOP IF SELECTED 
CsCLP1 


‘POINTER FOR COMMANDS 
sTAPE READ COMMAND IN PLACE 

ina = POINTER TO PACKET 

;WAIT FGn com SSR TO SET 

: 

TSSR CONTENTS 
sSET UP EXPECTED 
THEY & 

BR, IF OK ESP. FUNCTION REJECT 

;BUMP COUNT 

}TSSR INCORRECT AFTER FORMAT CMD 
TRAP  CSERHRD 
.WORD 606 
"WORD T28TM 
“WORD PKTSSR 
TRAP = C$CLP1 

OMMAND 

sEND OF THE COMMANDS YET 

' IF DONE 

;MORE COMMAND(S) TO GO 


$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


sLOOP IF SELECTED 


sPOINT TO NEXT C 


sBR, IF LESS 25 
sTRY TO DROP THE UNIT 


AN ILL 
CAUSES FUNCTION REJECT TERMINATION LETH 
; COMMAND CILC E 


ILLEGAL 
MODE CODES ARE CHECKED. 


) ERROR BIT SET. 


ALL ILLEGAL 


g>>>>>>>>>>>> SUBTEST >>>>>>>>>>>> 


2: 
Cs6suB 


104402 
004737 113506 


PC, T26REST 
004737 113600 


sSET COMMAND PACKET 
PC, T26RT2 sSET UP OTHER COMMAND PACKET 
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14727 106652 113642 
7 016114 


002212 


SEQ 0310 


PC, T2BRT3 :SET UP OTHER COMMAND PACKET 
PC. SOF INIT {D0 INITIALIZE ON CONTROLLER 
ne ;8R IF INIT WAS OK 

R 


sBUMP COUNT 
i CONTENTS OF 1338 REGISTER 
» SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT OK 


RUSS 


sSET UP DRIVE NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
to COMMAND ISSUED OK 


+ SAVE CONTENT 


14744 106726 S OF TSSR 
sWRITE CHARACTERISTISC rane 


14745 106730 
106730 C#ERHRD 
TORO 608 
“WORD WRTMSG 
[WORD  SFIMSG 
;LOOP IF SELECTED 
TRAP  C$CLP1 
sSET POINTER FOR COMMANDS 
3SET UP NEXT 
STARTING WRITE BUFFER ADORESS 
SET UP R4 WITH PACKET ADORESS 
1361 UP RECORD SIZE IN PACKET 
{WAIT FOR SSR!GITI!@IT2 TO SET 
(RS) RL sGET TSSR CONTENTS 
'SC!BITA!8IT2,.R2 SET UP EXPECTED 
R2 ;ARE THEY EQUAL 
36R, IF OK 
sBUMP COUNT 
sTSSR INCORRECT AFTER READ DATA 


106736 
14746 106740 
106740 
14747 s00r83 


MOV 
ERROF 
MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 
CKLOOP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
chp 
BEQ 


x 


sLOOP IF SELECTED 


sGET MESSAGE BUFFER 

sSET UP EXPECT 

sSET THE ILC BIT IN EXPECTED 
sARE THEY EQUAL 

sBR, IF EQUAL CALL IS WELL) 


‘ 
ERRNO, T26L0@,EXPREC sTHE ILC BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
-WORD 8610 
-WORD T26L 
WORD 


TRAP CécLP. 
TST sa33° sBUMP TO NEXT ADDRESS (COMMAND) : 
CMP R3),@177777 sCHECK FOR END OF COMMAND BUFFER 


Bas 8 


pe 


14776 107072 
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14777 107076 
14778 207309 


i 
14779 107102 
107102 


07102 
14780 107104 


s4783 107120 


001323 
104406 


104403 
023727 002212 000017 
004737 017322 


190%: 


999%; 


t¢ 
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cxLoop ~ POOP. fF MOELEETED age. 
TRAP CéCLPi 
ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10132: 
CMP FATFLG, #15 IS ERROR COUNT AY 2 _— 
BLO 0 «99S 1BR TF LESS THAN 25> 
JSR PC ,.CKDROP Y TO DROP THE UNIT 


iTEST 8, SUBTEST 3 
iVERIFIES THAT WRITE TAPE MARK COMMANDS OPERA Te 
110, DETECT TH THE WRITTEN TAPE MARKS TERMINATE WIT TH TABe 


APE MARK DETECTED ee STATUS 


rBIT SET. ite FO FOLLOWING SEQUENCE IS EXECUT 


i. 


,. 


P 


nib niaiienie weteel ‘waste Weectad ‘piscial * wlotelt pind 
. 


THE CONTROLLER IS INITIALIZED AND TAPE REWOUND. 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 


A TIE TAPE TK Crewe Ut TH CvC=1 IS ISSUED 
TERMINATION ANOS STATUS IS VERIFIED 
(I.E. VCK=0 AND TMK=1). 


SEVERAL MORE WRITE 1 TAPE MARK COMMANDS, THESE WITH 
CvC=0 ARE ARE ISSUED AND PROPER TERMINATION (NORMAL 
AND STATUS VERIFIED. 


A READ REVERSE COMMAND IS AND PROPER 
Vee ON Gy SURGES nat aS BO 
TRANSFERRED INTO MEMORY. 


A SP. RECORDS REVERSE COMMAND IS ISSUED AND 
TERMINATION (TAPE STATUS ALERT) AND STATUS 
CTMK) VERIFIED. 


TesucD leds Paiben tema se 


Is 
iss 2. vekirios EST RS Status ALP Sere 
THAT rata ca IS TRANSFERRED 


Setar te ia Ay Te TeSue CRIA 
VERIE T TAPE Age ERMINATION 
Mikes ae reat a 


TO OE 
te. 


SEQ 0311 
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SEQ 0312 
TEST 8: WRITE/READ TAPE MARK 


TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
SPACE RECORDS REVERSE COMMAND AND ae THAT 
TAPE STATUS ALERT TERMINATION OCCUR: oe 
REVERSE INTO BOT (RIB) STATUS ERROR “art 


A SPACE RECORDS A COMMAND THAT CONTAINS A 
RECORD COUNT GREA searine 2 se tence OO 2! 8 
VERIFIED a a Mes STATUS ALERT TERMINATION 
OCCURED THAT RBPCR_CRESIDUAL 

BYTE TRECORD. COUNT ER) CONTAINS THE PROPER NONZERO 
VALUE. THIS ppt gl er ice THAT DETECTION OF 
THE TAPE MARK CAUSES ie RECORDS OPERATION 
TO BE PREMATURELY TERMINA TED. 


a 


g>>>>>>>>>>>> om atte >>>>>>>>>>>> 
ee C#BSUB 


023420 111612 MOV . sSET Y ROUTINE 
016114 10$: PC, SOFINIT TE ON CONTROLLER 
BCS 20 F NIT WAS 
-25 SECONDS 
000250 MOV 9250, (PC) 


002116 LSDLY.(PC)+ 
177772 DEC -6¢PC) 
177756 DEC ~22¢PC) 
111612 T26DLY ;BUMP DELAY ROUTINE DOWN ° 
BNE 10$ :BR, IF MORE DELAY TIME LEFT 

FATFLG :BUMP COUNT 

RO,R1 }CONTENTS OF TSSR REGISTER 
ERRNO, SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT ant 


"WORD 
“WORD 
7WORD 
UNITN, T28DSW ;SET UP DRIVE 

@T2BPACKET ,R4 sSUBROUTINE NEED: T 

PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
:8R, COMMAND ISSUED OK 
;BUMP 

1SAVE CONT 


23 
FATFLG 
RO,R1 ENTS OF TSSR 
ERRNO, WRTMSG, SFIMSG WRITE CHARACTERISTISC FAILED 


C#ERHRD 
-WORD 812 
-WORD WRTMSG 
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14877 


1 
14878 107, 


14879 


14880 
14881 107300 
14882 


14886 


14924 


1 
107470 
107472 


012154 


002216 
000200 
000010 
111530 
000000 
016456 


002212 


000007 
111420 
010752 


002212 


MACRO VOS.03 


234: 


30%: 


50$: 
111440 


60$: 
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PC REWIND 
303 
TSSRCRS),R1 
RO,R 


FATFLG 
ERRNO, T28RWN, PKTSSR 


T2eBER-6, RL 
seini. R2 
R1,R2 

403 


FATFLG 
ERRNO, T28B0T , EXPREC 


EXTFEA 
50% 

$200, T288S1 
#10, t288S0 
OT2BPK2 ,R4 
R4, TSDBCRS) 
PC jCHKTSSR 
RO'RI 
FATFLG 

ERRNO, T28SSR,PKTSSR 


$7, T280SW 
OT2BPACKET ,R4 
PC, WRTCHR 


Bins 
ERRNO, WRTMSG , SFIMSG 


SEQ 0313 

. SFI 

;LOOP IF SELECTED - . 
TRAP = C$CLP1 

sCALL TAPE REWIND COMMAND 

IF NO PROBLEM 

ert TSSR 

3SAVE PACKET ADDRESS 

sBUMP C 

REWIND NOT ACCEPTED 
TRAP § CSERHRD 
. 813 
“WORD : T2BRWN 
“WORD PKTSSR 

;LOOP IF SELECTED 
TRAP = C$CLP1 

;PICK UP XSTO 

sSET UP EXPECTED 

SET BOT BIT IN EXPECTED 

;D0ES EXP = 

1BR IF EQUAL Cok) 

{TAPE NOT AT BOT AFTER REWIND 
TRAP  C$ERHRD 
.WORD 614 
"WORD T28BOT 
WORD Cc 


sLOOP IF SELECTED 
RAP C$CLP1 
sCHECK F een tome FEATURES SW SWITCH 


s8R IF SWITCH IS 
sWRITE MSceL ens CONT/READ STATUS 
SEL. BIT es ON EXTFEA SWITCH) 


1 FUNC. 

IWRITE SUBSYS MEM P 
TISSUE COMMAND 
SWAT FOR SSR 
tERROR, SAVE TScR 


sBUMP COUNT 
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
CS#ERHRD 


TRAP $ 
-WORD 815 
-WORD T28SSR 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

+ UP_ORIVE 

INE NEEDS PACKET 

rTSSUE WRITE CHARACTERISTICS 

Ht F COMMAND ISSUED OK 

iSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC rene 

C#ERHRD 

"WORD 816 
-WORD SFIMSG 


sSCOPE LOOP 


D9 


TSV7 - HARDWARE TESTS 1-8 MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 77-209 
TEST 6: WRITE/READ TAPE MARK 
107472 104406 TRAP CsCLP1 
000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
000100 OOFL ,R1 sCHECK FOR THE OFFLINE BIT SET 
BNE 65$ iBR, IF OFFLINE (GOOD) 
002212 FATFLG 38 OUNT 
ERRDF ERRNO, T260FL,SFIMSG OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP gtgrer 
sLOOP IF SELECTED 
TRAP CsCLP1 
UNITN, T280SW sSET UP DRIVE NUMBER 
@T2BPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
PC, WRTCHR s ISSUE WRITE CHARACTERISTICS 
OATFLG EUR COMMAND ISSUED OK 


RO,R1 i SAVE CONTENTS OF TSSR 
ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC rane 


g 


;LOOP IF SELECTED ike 
$140011, T26PK3 ;WRITE TAPE MARK ACK .CVC=1 COMMAND 
oT R4 sSET UP R4 NBACKET ADORE 


CKL 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 


5 


sBUMP COUNT 
ERRNO, T28WDC ,PKTSSR }TSSR INCORRECT AFTER WRITE TAPE MARK 
CFERHRD 
“WORD T26WDC 
“WORD PKTSSR 
;LOOP IF SELECTED ana 
T2OBFR-6, R1 ;PICK UP XSTO (VCK CHECK) 
R1,R2 EXPECTED 
eeita, R2 
1,R2 
80% 
FATFLG C 
ERRNO, T26VCK ,EXPREC WAS NOT CLEAR AFTER CvCel 
*. 
“WORD 
TRAP 
T26BFR+6,R1 sPICK UP XSTO (CHECK TMK) 
EXPECTED 


R1,R2 sSET UP 
#6iT15,R2 TMK SHOULD BE SET 


sLOOP IF SELECTED 


SEQ 0314 
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14973 107706 020102 CMP R1i,R2 ;WAS TMK SET 

14974 107710 001406 BEQ 90% ;BR, IF TMK WAS SET 

14975 107712 005237 002212 INC FATFLG ;BUMP COUNT 

14979 107716 ERRHRD ERRNO, T28TMK,EXPREC ;TMK WAS NOT SET AFTER WRT TAPE HARK 
107716 104456 C$ERHRD 
107720 001 "NORD 
107722 113015 "WORD  T2BTMK 
107724 015614 “WORD 

14980 107726 90%:  CKLOOP ;LOOP IF SELECTED 

14981 107786 boa7s? 011136 JSR PC, REWIND CALL TAPE REWIND comma” —" 

; 

14962 107734 103411 BCS 130$ ;6R, IF NO PROBLEM 

14983 107736 010004 MOV RO,R4 sSAVE PACKET 

14984 107740 016501 000002 MOV TSSR(RS),R1 :GET TSSR STATUS 

14985 107744 005237 002212 INC FATFLG ;BUMP 

14989 107750 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
107750 104456 TRAP § CSERHRD 
107752 001 . WORD 2 
107754 112541 "WORD T2SRWN 
107756 012166 ; PKTSSR 

14990 107760 130%: | CKLOOP ;LOOP IF SELECTED 
107760 104406 TRAP —s- C$CLP1 

14991 107762 013701 111450 MOV T2OBER-6, Ri ;PICK UP XSTO 

14992 107766 010102 MOV sSET UP EXPECTED 

14993 107770 052702 000002 BIS cei. R2 iSET BOT BIT _IN EXPECTED 

14994 107774 020102 CMP R2 ;D0ES EXP = REC’D 

14995 107776 001406 BEQ fade i8R, IF EQUAL COK) 

14996 110000 37 002212 INC FATFLG sBUMP COUNT 

15000 110004 ERRHRD ERRNO, T28B0T,EXPREC }TAPE NOT AT BOT AFTER REWIND 
110004 104456 TRAP  C4ERHRD 
110006 001467 .WORD 623 
110010 112417 "WORD T28B0T 
110012 015614 [WORD EXPREC 

15001 110014 140%:  CKLOOP ;LOOP IF SELECTED 
110014 104406 TRAP —- C4CLP1 

15002 110016 012703 000012 150%: MOV #10. ,R3 sNUMBER OF RECORDS TO WRITE TM 

15003 110022 012737 140011 111550 MOV #140011, T28PK3 WRITE TAPE MARK, ACK,CVC=1 COMMAND 

15004 110030 012704 111550 MOV eT2 R4 3SET UP R4 WITH HAE ADDRESS 

15005 110034 010465 000000 155¢: MOV R4, TSDBCRS) s ISSUE COMMAND 

15006 110040 004737 016370 JSR PC; WAIT sWAIT FOR SSR TO SET 

15007 110044 016501 MOV TSSR(RS),RI sPICK UP TSSR 

15008 110050 0 000200 MOV @SSR,R2 3SET UP EXPECTED (SSR ONLY) 
10054 1 CMP R1,R2 iWAS STATUS 

15010 110056 001406 BEQ 165% 38R, IF TERMINATION WAS GOOD 

15011 110060 37 002212 INC FATFLG :BUMP COUNT 

15015 110064 ERRHRD ERRNO, T26WOC,.PKTSSR sTSSR NOT CORRECT AFTER WRT TAPE M. 
110064 104456 TRAP C$ERHRD 
110066 001470 .WORD 624 
110070 112663 [WORD T28WOC 
110072 012166 [WORD PKTSSR 

15016 110074 165%:  CKLOOP ;LOOP IF SELECTED 
110074 104406 TRAP  CSCLP1 

15017 110076 013701 111450 MOV T26BFR-6,R1 sPICK UP XxSTO 

15018 110102 010102 MOV R1 EXPECTED 

15019 110104 Oas705 100000 BIS eeitis. R2 1SE1 THK BIT_IN EXPECTED 

15020 110110 020102 CMP c'D 

15021 110112 001406 BEQ th 18R, IF EQUAL COK) 
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15022 110114 
15026 


15069 110324 
15070 110332 
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100410 111550 
000001 11 


1552 


220%: 


i: 


BEEP EEE EEE ti . 


oo 


FATFLG 
ERRNO , T26 TMK , EXPREC 


See tant 
peenssc tbs 2.R2 
R1,R2 


$ 
FATFLG 
ERRNO , T26ROF , PKTSSR 


T26BFR+6,R1 


@aFREE ,R1 
0177777 ,R2 
R1,R2 


220% 
FATFLG 
ERRNO, T26DTR , EXPREC 


#100410, T28PK3 
#1, T28R6 


sBUMP COUNT 
;TMK NOT SET AFTER WRT TAPE MARK 
TRAP  CSERHRD 
.WORD 625 
“WORD T2BTMK 
s EXPREC 
sLOOP IF SELECTED 
TRAP 
: BUMP COUNTER | DOWN 
;0R, IF LESS THAN 10 TAPE MARKS 
bVALUE 10 TO WRITTEN TO MEMORY 
FILL MEM WITH ALL ONE 
STARTING READ BUFFER RooREss 
sREAD REVERSE ,ACK, COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
;WAIT FOR SSR TO SET 
GET T 


CscLP1 


sBUMP COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


826 
T26ROF 
PKTSSR 


CsCLP1 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

tT SHOULD BE SET 

31S TMK 

3BR, IF TMK WAS SET (GOOD) 
BUMP 


THK NOT SET AFTER READ REV 
TRAP 


sLOOP IF SELECTED 


sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
sDID ANY DATA GET TRANSFERRED 
s8R, IF NO DATA TRANS (GOOD) 


sBUrP C 
;DATA TRANSFERRED ON ney TS 


TRAP 
RECORDS. 18 SPACE BACK 


sLOOP IF SELECTED 


s SPACE wd 
sNUMBER OF 


CsCLP1 


SEQ 0316 
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111550 
000000 
016370 
000002 
100204 


002212 


0111356 


000002 
002212 


111450 


177777 


017542 
003116 111552 
100001 111550 


222%: 


226%: 


230%: 


2403: 


OT28PK3,R4 
Ra, TSDBCRS) 


TSERCRS a 
faeries 2,R2 
R1,R2 


222% 
FATFLG 
ERRNO, T26RDG ,PKTSSR 


T28BFR+6,R1 
#81T15,R2 
R1i,R2 


$ 
FATFLG 
ERRNO, T26RRN, EXPREC 


PC ,REWIND 
ae, 

TSSR(RS),R1 

FATFLG 

ERRNO, T26RWN,PKTSSR 


T26BFR+6,R1 
#817T1,R2 
R1,R2 


$ 
FATFLG 
ERRNO , T28B0T , EXPREC 


9177777 ,RO 
FILLMEM 


FREE, TOBRB 
#100001 , T28PK3 


MACRO VOS.03 Tuesday 28-Apr-A7 08:48 Page 77-212 


sSET UP _R4 WITH PACKET ADDRESS 


sISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET CONTENTS 

sSET ¥ EXPECTED 

sARE THEY E 

36R, IF OK 

sBUMP 

sTSSR INCORRECT AFTER ag A CMD 
. WORD 
WORD 
. WORD 

s;LOOP IF SELECTED 
TRAP 


sPICK UP XSTO 
sSET UP EXPECTED 


31S TMK 
36R, IF TMK WAS SET (GOOD) 


3;BUMP 

;TMK NOT SET AFTER SPACE REV 
TRAP 
; WORD 
; WORD 

;LOOP IF SELECTED a 

sCALL TAPE REWIND COMMAND 


sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 
rene UP _XSTO 
UP EXPECTED 
1SET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
1BR IF EQUAL (OK) 
; TAPE NOT AT BOT AFTER a 


sLOOP IF SELECTED 


RAP 
sVALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 

NG READ BUFFER ADDRESS 
FORWARD COMMAND 


CsCLP1 


C#ERHRD 
832 
T2680T 
EXPREC 


CsCLP1 


SEQ 0317 


H9 
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TEST 8: WRITE/READ TAPE MARK 
1512) H1GBEs SHOP 882 use © RY Sure 1 MF Raa SOT, BEES 
3 \' 

iiss 110566 010465 000000 MOV £68hs) s 1SSUE CORMAND 

15123 110572 004737 016370 JSR sWAIT FOR SSR TO SET 

15124 110576 016501 000002 MOV be Lt? sGET TSSR CONTENTS 

15125 110602 012702 100204 MOV TSERCHD) A R2 sSET UP EXPECTED 

15126 110606 020102 CMP R1,R2 sARE THEY EQUAL 

15127 110610 001406 BEQ 245% :8R, IF OK 

15128 110612 005237 002212 INC FATFLG 38 OUNT 

15132 110616 ERRHRD ERRNO, T26WDE,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
110616 104456 TRAP «C$ 
11 001501 .WORD 6833 
110622 112326 T2BWDE 
110624 012166 "WORD PKTSSR 

15133 110626 245%:  CKLOOP ;LOOP IF SELECTED 
110626 104406 TRAP —s- C$CLP1 

15134 110630 013701 111450 MOV T26BFR+6,R1 :PICK UP XSTO 

15135 110634 010102 MOV R1,R :SET UP EXPECTED 

15136 110636 052702 100000 BIS #81T15,R2 ;TMK SHOULD BE SET 

15137 110642 020102 CMP R1,R2 :I1S TMK SET 

15138 110644 001406 BEQ 247% ;8R, IF TMK WAS SET (GOOD) 

15139 110646 005237 002212 INC FATFLG ;BUMP COUNT 

15143 110652 ERRHRD ERRNO, T26RRP,EXPREC ;TMK NOT SET AFTER READ REV 
110652 104456 TRAP § CSERHRD 
110654 901502 .WORD 634 
110656 113224 "WORD T2BRRP 
110660 015614 “WORD EXPREC 

15144 110662 247%: CKLOOP ;LOOP IF SELECTED 
110662 C#CLP1 

15145 110664 017701 072226 MOV aFREE,R1 FIRST LOC IN READ BUFFER 

15146 110670 012702 177777 MOV 0177777 ,R2 EXPECTED IF NO DATA TRANS. 

15147 110674 020102 CMP R1,R2 ;DID ANY DATA GET TRANSFERRED 

15148 110676 001406 BEQ 250% BR. IF NO DATA TRANS (GOOD) 

15149 110700 005237 002212 INC FATFLG 

15153 110704 ERRHRD ERRNO, T28DTR,EXPREC {DATA TRANSFERRED ON READ TAPE MARK 
110704 104456 C$ERHRD 
110706 001503 "NORD 35 
110710 113302 "WORD T2BDTR 
110712 015614 : 

15154 110714 250$: CKLOOP ;LOOP IF SELECTED 
110714 104406 TRAP  C4CLP1 

15155 110716 012737 100410 111550 MOV #100410, T26PK3 s SPACE REVERSE 

15156 110724 012737 000005 111552 MOV 05, T26R6 ;NUMBER OF RECORDS TO SPACE BACK 

15157 110732 012704 111550 MOV OT28PK3 RA ;SET UP R4 urn 

15158 110736 010465 000000 MOV R4.TSD ERS) sISSUE COMMAND 

15159 110742 004737 016370 JSR sWAIT FOR SSR TO SET 

15160 110746 016501 000002 MOV TSencRs a1 :GET TSSR CONTENTS 

15161 110752 012702 100204 MOV TSGRCHS) 2,R2 iSET Wp EXPECTED 

15162 110756 020102 CMP R1,R2 sARE THEY EQUAL 

15163 110760 001406 BEQ $ 3BR, IF OK 

15164 110762 005237 002212 INC FATFLG ;BUMP COUNT 

15168 110766 ERRHRD ERRNO, T26RDG,PKTSSR iTSSR INCORRECT AFTER SPACE REV CMD. 
10766 104456 CSERHRD 
110770 001504 36 
110772 112035 “WORD T2BRDG 
110774 012166 "WORD  PKTSSR 

15169 110776 260%: CKLOOP ;LOOP IF SELECTED 


TSV7 - 


HARDWARE TESTS 1-8 


TEST 8: WRITE/READ TAPE MARK 


10776 


111450 
100000 


002212 


111446 
000004 


002212 


100010 111550 


270%: 


290%: 


300%: 


BEEP EEE: ; 


, 


ae oR1 
eeitis. R2 
R1,R2 


270% 
FATFLG 
ERRNO , T26RRN, EXPREC 


T26BFR+4,R1 
Rishon 

280$ 
FATFLG 


TSSR(RS),R 
@SSR 
290% 
FATFLG 
ERRNO, T28RDG,PKTSSR 


T26BFR-14, Ri 
R1,R2 
eB1T0,R2 
R1,R2 


$ 
FATFLG 


#100010, T26PK3 
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SEQ 0319 

TRAP CS$CLP1 

sPICK UP XSTO 

4 UP EXPECTED 

TMK SHOULD BE SET 

‘IS TMK SET 

sBR, IF TMK WAS SET (GOOD) 

3;BUMP COUNT 

sTMK NOT SET AFTER READ REV 
TRAP CSERHRD 
-WORD 837 
.WORD T28RRN 
WORD Cc 


sLOOP IF SELECTED 
TRAP C$CLP1 


sPICK UP RESIDUAL BYTE COUNTER 
5 D BE THE DIFFERENCE 
sIS COUNTER CORRECT 

sBR, IF COUNTER CORRECT 


sBUMP COUNT 
sRESIDUAL BYTE COUNTER 7 goes! 


C$ERHRD 

.WORD 638 
"WORD T28PBP 
[WORD EXPREC 

;LOOP IF SELECTED 
TRAP C$CLP1 

s SPACE REVERSE COMMAND 

sNUMBER OF RECORDS TO SPACE BACK 

sSET UP R4 WITH PACKET ADDRESS 

31SSUE COMMAND 

sWAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

sSET UP EXPECTED 

;ARE THEY E 

3BR, IF OK 

3;BUMP 

sTSSR INCORRECT AFTER SPACE CMD 
TRAP CSERHRD 
.WORD 839 
“WORD T2BRDG 
WORD SSR 

;LOOP IF SELECTED 

sees aaan TRAP CSCLP1 

a 

EET Ub EXERTED 

}RIB SHOULD BE SET 

sIS RIB SET 

38R, IF RIB WAS SET (GOOD) 

sBUMP 

;RIB NOT SET AFTER READ REV 
TRAP  CSERHRD 
. WORD 840 
[WORD T26RIB 
.WORD EXPREC 

;LOOP IF SELECTED 
TRAP = C$CL P21 


sSPACE FORWARD,ACK, COMMAND 


JI 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: WRITE/READ TAPE MARK 


111212 
111220 


111376 


012737 


000005 
111550 
000000 


016370 
000002 
100204 


002212 


111446 
000004 


002212 


002212 
017322 


016576 
106260 
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111552 


000017 


310%: 


320%: 


330%: 


FATFLG 
ERRNO, T26RDF , EXPREC 


T2BBER-6,R1 
saitis, R2 
R1,R2 


$ 
FATFLG 
ERRNO, T26RRP , EXPREC 


T28BFR-4,R1 

04. ,R2 

R1,R2 

330$ 

FATFLG 

ERRNO, T26PBP ,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
63% 
28L.00P 

TST 


ORDS TO SP fo. 


ISET. UP Re Ut WITH PACKET 


sISSUE C 

;WAIT FOR SSR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
:BR, OK 


sBUMP COUNT 
sTSSR INCORRECT AFTER on CMD. 


AP 
- WORD 
~WORD 
WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XSTO 
3SET UP Oke tet 
TMK SHOULD BE SE 
31S TMK SET 


sen IF TMK WAS SET (GOOD) 

sBUMP 

3s TMK NOT SET AFTER READ REV 
TRAP 
- WORD 

- WORD 

WORD 


sLOOP IF SELECTED 


TRAP 
sPICK UP RESIDUAL BYTE COUNTER 


sSHOULD BE THE DIFFERENCE 
11S COUNTER CORRECT 
+ om IF COUNTER CORRECT 


COUNT 
;RESIDUAL BYTE COUNTER NOT I aataar 


MMoro 
- WORD 
. WORD 


sLOOP IF SELECTED 
TRAP 


CSERHRD 


843 
T26PeP 
EXPREC 


CsCLP1 


p<<eececeec<e END SUBTEST >>>>>>>>>>> 


L10133: 
sIS ERROR COUNT AT 


ORY IF LESS THAN 
Y TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
18R, IF NO LOOP REQUIRED 
sEXECUTE AGAT 
sALL DONE THIS TEST 

TRAP 


CsESUB 


CsExIT 


SEQ 0320 
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TEST 68: WRITE/READ TAPE MARK 
«WORD 1L10150-. 


ad 
sLOCAL STORAGE FOR THIS TEST 


se P 10-<, -TSV2E7> 
T28PACKET : ;COMMAND PACKET FOR TEST 
; WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


100004 
_— sADDRESS OF CHARACTERISTICS BL 


10. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


3388 $333 5 


T28DATA: 
’ T268FR 


20. :LENGTH OF MESSAGE BUFFER 
T280SW: [WORD 0 sSELECT DRIVE © 

T28BFR: [BLKW 25. {MESSAGE BUFFER 

{WRITE SUBSYSTEM MEMORY COMMAND PACKET 

‘ 10-<. -TSV2E7> 


T26PK2: 
100006 sWRITE SUB SYS MEM COMMAND, IE AND ACK 
joure sADDRESS OF SELECT BLOCK DATA 


6. sSIZE OF DATA PACKET 

10-<.-TSV2E7> 

100005 sREREAD COMMAND, AND ACK 

= sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


BLKB 
WORD 
WORD 
WORD 
. WORD 
-BLKB 
WORD 
WORD 
WORD 
WORD 
EVEN 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
;DATA AREA 


101411 sILLEGAL MODE BITS TEST DATA 
ioseit 102011 

193797 

100011 sWRITE TAPE MARK COMMAND 


100411 100411 sERASE one 
101011 sWRITE TAPE MARK RETRY 





L9 


TEST 6: WRITE/READ TAPE MARK 
15326 111604 177777 
329 
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.WORD 177777 sEND OF DATA 
T28CNT: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
T>BCNU: : 0 ‘TAPE TIMER COUNTER STORAGE AREA 
T28DLY: [WORD 0 DELAY COUNTER 


NE 


PEPRSRERE ERNE RES 


43 


}LOCAL TEXT MESSAGES FOR TEST 
t- 


141 160 T26RIB: .ASCIZ ‘Tape Position Not Correct, RIB Should Be Set’ 

145 163 T26PBP: .ASCIZ ‘Residual Byte Counter aei8 Reverse CRBPCR) Correct’ 

123 123 T2BRDF: .ASCIZ ‘TSSR Reortest After RE SE Into T MARK’ 

123 ASCIZ *TSSR Incorrect After SPACE Command = td TAPE | MARK’ 

ASCIZ athe Not Correct After Illegal Mode Bits Set’ 

ASCIZ at tP ree. Mode Bits, Failed To Set ILC Bit, In XSTO’ 
‘init MISCELLANEOUS Not 


: IZ ‘TSSR Not Correct After READ DATA Command, Into TAPE MARK’ 
, IZ ‘Tepe No Not At BOT After REWI 
-ASCIZ '‘T t Correct After FORMAT Command Re ject’ 
-ASCIZ ‘Rewind. tpositr ON) Command Not 

162 151 T26O0FL: .ASCIZ ‘Drive 7 Select Feiled To Set “OFL” In TSSR’ 

123 8WOC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK Commend’ 

-ASCIZ 4 Set, Didn''t Reset VCK In Message Buffer’ 
-ASCIZ ‘TMK Not Set aver WRITE TAPE MARK Commend’ 


115 113 : .ASCIZ ‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
115 113 T26RRN: .ASCIZ ‘TMK Not Set AP _ SPACE REVERSE Into TAPE MARK’ 
115 113 T2BRRP;: [ASCIZ ‘TMK Not Set After READ FORWARD Into TAPE MARK’ 
141 64 T28DTR: -ASCIZ ‘Dete Transferred On READ REVERSE Into A TAPE MARK’ 
141 164 T26DTA: .ASCIZ ‘Deta Conpere Error, yoate Read From Tape Not Equal To Written’ 
151 TST28ID: ~ASCIZ ite/Read Tape Merk’ 
3° 
| 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
}WRITE SUBSYSTEM MEMORY COMMAND 
8 
87 
T26REST: 
SAVREG VE THE REGISTERS 
111420 MOV @T2BPACKET ,R1 SSTART OF THE PACKET 
MOV sieoxt CRid- ;WRITE SUBSYSTEM MEM. WITH 
111430 MOV T2Q0ATA, ( i)- sADDRESS OF CHARAISTICS DATA BLOCK 
CLR tEXTENDED Ss 
12 MOV a R1 1); sSIZE OF DATA BLOCK IN BYTES 
111442 nov ¢ Hust R1)- sADDRESS OF MESSAGE BUFFER 
000024 Rov #20; (R1)+ sLENGTH OF MESSAGE BUFFER 
000000 MOV $0 oR sSELECT DRIVE ZERO 
000030 MOV $24. ;NUMBER OF LOCATIONS TO BE CLEARED 
177777 111442 64%: MOV $1 77979, T26BFRCR2) sALL ONES 10 MESSAGE BUFFER 
TST -(R2) NEXT LOCATI 


SEQ 0322 


M9 
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TEST 6: WRITE/READ TAPE MARK 


1538S 113570 020227 000000 R2, 00 sCHECK FOR END 
i 3574 ry iKEEP_ GOING UNTIL DONE 
] 


903373 64 
00020 PC 
T28RT2: 

sSAve THE REGISTERS 
012701 MOV 4 ows fy STAR T OF THE PACKET 
sWRITE SUaSYSTEN MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


Seneossees 


& 
& 


R 
T28RTS: 


;CLEAR EXT 
sSIZE OF DATA TRANSFER 
sRETURN 


eRrRRceerere 


L10130: 
T 


TSV6 - PARAMETER CODING 


TSV6 
TSV6:: 


HARDWARE PARAMETER CODING SECTION 

| THE HARDWARE PARAMETER CODING SE TON CONTAINS MACROS _ 
THAT ARE USED BY THE GUPERYTEOR 10 BUILD P TABLES. 

EXECUTED AS INSTRUCTIONS ARE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 


ate he tee THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WI OPERATOR. 


BGNHRD 
-WORD L10134-L $HARD/2 


ase 0 560088. S77 TRS, VES sGET TSBA/TSDB REGISTER ADDRESS. 


oe 


113676 
15445 113700 


HILIM 





N9 
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HARDWARE PARAMETER CODING SECTION 
113702 113744 HPM2 
113704 000000 WORD TS¢LOLIM 
113706 000776 . T$HILIM 
1 HPMS ,4,0,340,0,7, VES sGET INTERRUPT PRIORITY. 
15447 113710 


‘DEVICE ADDRESS (TSBA/TSDB) ' 
"INTERRUPT VECTOR ' 
"INTERRUPT PRICRITY . 





Bio 
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SOFTWARE PARAMETER CODING SECTION 


114170 
114170 


114400 


000003 


001130 
114060 
177777 


105 
111 
120 
120 


114400 


101 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


8° 

} THE SOFTWARE PARAMETER CODING SECTION CONTAINS HA 

3 THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

: MACROS ARE NOT EXECUTED AS NSTRUCTIONS 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

; WITH THE OPERATOR. 

gee 
BGNSFT 
.WORD L10135-L$SOFT/2 

L$SOFT:: 

; GPRML SPM1,0,-1, YES ; GET TRANSPORT TEST FLAG. 
GPRML SPM4.2.-1.YES ; GET ITERATION CONTROL. 
.WORD TSCODE 

’ épare SPM6.4,0,7777,0, 7777, YES 3 GET LOCAL ERROR LIMIT 

; GPRID | SPM7 .6.D.7777,.0.7777, YES ; GET GLOBAL ERROR LIMIT 
even 

L1013S: 

SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ' 

SPM4: :ASCIZ ‘INHIBIT ITERATIONS ' 

SPM6: :ASCIZ ‘PER TEST ERROR LIMIT ' 

SPM7: :ASCIZ ‘PER UNIT ERROR LIMIT ‘ 
*SBTTL PATCH AREA 


FINALLY A GENEROUS PATCH AREA. 


AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
DESCRIBED IN “SUPPRG.MEM” CFOR REV C). 
PATCH: : 
-BLKW 32. 
-*. 137701 
LASTAD sSET LAST USED ADDRESS. 
; ft) 
¥ 0 
L$LAST:: 
END 


SEQ 0325 
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003116 G 
003122 6 


aPagR 


= 
° 
a 


ge 


a 
Seunupeenpneeeeueaeeeauauea 


=p 


ees 
oe 
Vawetee 


aagz8* 


ae 


TAMARA ANH nh 
WHOEoRSVEISCUTIOSS 
Ree 2RG SeaaSs 

iw <To- ra 


=~ 
v 
— 
& 


aa tFre 
ans 


52 


Suir 
3 


3 


Cc 
C 
C 
é 
¢ 
é 
Cc 
C 


pL ees 
R28 


e 


LERRMA 
LISTAL= 000001 
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gsegssgssasses 2 
use ee : : 3 


i 


§ 
8 


Se 
ee 


PRIO6 

PRMESS 
PRMNO 

PRMSGE 
PRMSGO 
PRMSG1 
PROASE 
PR1ASC 
PST32W 


: 


ss 


==) 
pee 
vik 


: 
ne 


ai 


Se bk 


45833 
: 
SSRS 


a 
Hae 
: 

$4 


ff 


vereeerrrereeere 
5 
wD 


ae 
RANOMO 
38 


mi 
? 


5 
838 


rerererereeerreerece 


PSMA OH 


age 
B88 
hae 
SABA 





Mm 
_ 
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Symbol table 


aa 
uae 


PRM MKH MMMM MH 


DAP WD ED OH ED ED Le Ue GR UE HE Ee oD Ge OD 
“an 
gegsgsa 
Beeeseeaeees 


Aas 
38 


33 
AHA HHA AHHH HHH HHH AHHH 
wVuVvNDy 
a 


DOODAGHAAG 


r 


fees 


enacgere 


T 
T 
T 
T 
T 
T 
T 
T$SEGL 
T 
T 
T 
T 
T 
T 
T 
T 


e44444-41-4 





F1i0 
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065414 
076166 G 





G10 


TSV6 - PARAMETER CODING MACRO VOS.03 Tuesday 28-Apr-87 08:48 Page 78-5 


neegeees 


He 
$5 
ee 


WC 
WC 
wc 
WF 
WF 
WF 
WF 
WF 
WF 
WF. 
WF. 


; 


395 
file: 28912 Words 3P 
o01: 19684 Words 2s ooogss? 
RSX-11M/PLUS (Under VAX/VMS) 


0:06.95 
SVC/ML .CVTSCD 





